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ABSTRACT 


This  project  gives  the  user  of  the  HP-41  handheld  pro¬ 
grammable  calculator  a  series  of  programs  that  give  accepta¬ 
ble  results  during  the  preliminary  phases  of  the  helicopter 
design  process.  The  project  consists  of  three  parts. 

The  first  part  consists  of  several  short  programs  and 
their  subroutine  form.  These  programs  and  subroutines  com¬ 
pute  density  altitude,  density,  disc  area,  solidity,  tip 
velocity,  induced  velocity,  coefficient  of  thrust,  tip  loss 
factor,  equivalent  chord,  and  ground  effect. 

The  second  part  consists  of  major  subroutines.  These 
subroutines  compute  profile  power,  induced  power,  climb 
power,  parasite  power,  and  total  power;  equivalent  area  and 
induced  power  for  a  tandem  rotor;  and  data  input  and  change. 

The  third  part  consists  of  the  main  programs.  These 
programs  compute  the  various  power  requirements  for  hovering 
flight,  forward  (straight  and  level)  flight,  vertical  flight, 
and  forward  climbing  flight;  also  tailrotor  power,  autorota- 
tive  flight,  and  tandem  rotor  flight. 
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I.  INTRODUCTION 


A.  BACKGROUND 

This  project  was  undertaken  to  give  the  user  of  the  HP-41 
Programmable  Calculator  a  series  of  programs  that  would  give 
acceptable  results  during  the  preliminary  phases  of  the  heli¬ 
copter  design  process.  The  HP-41  is  a  handheld  programmable 
calculator  designed  and  manufactured  by  the  Hewlett-Packard 
Company  of  Corvallis,  Oregon.  This  personal  computing  system 
easily  fits  into  a  coat  pocket,  thus  being  able  to  go  any¬ 
where.  This,  in  turn,  gives  the  preliminary  design  engineer 
a  computational  versatility  and  flexibility  not  previously 
experienced.  To  date,  no  known  project  of  this  magnitude  has 
been  attempted  with  a  handheld  calculator. 

B.  GOALS 

The  single  goal  of  this  project  was  to  construct  a  series 
of  self-prompting,  al^ha-numeric  programs  that  could  be  used 
with  acceptable  results  during  the  preliminary  helicopter 
design  process.  In  doing  this,  this  project  supplements  the 
theory  and  computational  processes  as  outlined  by  Professor 
Donald  M.  Layton  in  Aircraft  Performance  [Ref.  1] .  An  addi¬ 
tional  projected  end  use  was  for  utilization  by  the  Aeronau¬ 
tical  Engineering  students  of  the  Naval  Postgraduate  School 
enrolled  in  the  Helicopter  Performance  and  Helicopter  Design 


courses 


II.  APPROACH  TO  THE  PROBLEM 


The  basic  line  of  approach  used  in  this  project  was  to 
construct  calculator  programs  consisting  mainly  of  subrou¬ 
tines.  The  subroutine  is  the  key  ingredient  of  this  effort 
for  the  following  reasons: 

1.  The  use  of  subroutines  greatly  reduces  the  amount  of 
required  calculator  program  memory.  Numerous  main  programs 
utilize  the  same  basic  equations  and  computational  techniques 
even  though  the  end  results  will  be  different.  When  these 
processes  are  organized  into  subroutine  format,  the  numerous 
main  programs  can  call  and  execute  these  common  subroutines 
repeatedly,  until  the  desired  outputs  are  calculated  for  the 
particular  flight  conditions.  For  example,  program  "FORFLT " 
and  program  "VERFLT"  are  different  in  that  program  "FORFLT" 
will  calculate  the  power  requirements  for  forward  (straight 
and  level)  flight  while  program  "VERFLT"  will  calculate  the 
power  requirements  for  vertical  flight.  The  results  will  be 
different,  yet  both  main  programs  will  call  and  execute  fif¬ 
teen  identical  subroutines  where  computational  techniques 
are  the  same  for  both  programs.  The  end  result  being  that 
program  memory,  i.e.  the  number  of  calculator  registers  re¬ 
quired,  is  optimized. 

2.  The  use  of  subroutines  greatly  enhances  the  ease  of 
program  editing.  Each  individual  subroutine  calculates  a 


single  specific  function  or  variable,  i.e.  rotor  disc  area, 
rotor  solidity,  ground  effect,  density  of  the  air,  etc.  Per¬ 
haps  cne  user  of  these  programs  does  not  agree  with  the 
theory  used  for  calculating  ground  effect  or  perhaps  the 
user  knows  of  a  shorter  technique  that  will  greatly  reduce 
the  required  amount  of  program  memory  for  storage  of  the  sub¬ 
routine.  The  user  need  only  edit  that  particular  subroutine 
and  no  more.  Confusion  has  been  minimized,  and  there  is  no 
need  for  massive  amounts  of  program  editing. 

These  subroutines  and  this  project  utilize  the  basic 
aerodynamic  theories  of  the  helicopter,  and  it  is  not  the 
intention  of  this  project  to  teach  this  theory,  nor  is  it 
the  intention  of  this  project  to  teach  calculator  programming 
operations.  The  user  of  these  programs  is  assumed  to  have  a 
basic  knowledge  of  helicopter  aerodynamics  and  it  is  further 
assumed  that  the  user  is  proficient  with  the  HP-41  program¬ 
mable  calculator. 
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III.  THE  SOLUTION 


A.  PROGRAM  AND  SUBROUTINE  ORGANIZATION 

The  program  and  subroutine  documentation  used  throughout 
this  project  exists  in  six  sections.  The  nature  of  each  of 
these  sections  is  as  follows: 

1 .  Purpose 

This  section  gives  a  brief  description  of  the  in¬ 
tended  purpose  of  the  program  or  subroutine.  This  section 
will  often  show  a  listing  of  the  various  program  displays 
and  outputs. 

2 .  Equations 

This  section  lists  the  various  equations  used  within 
the  program  or  subroutine.  If  the  program  or  subroutine 
should  call  and  execute  another  subroutine,  this  section 
will  not  list  nor  discuss  the  equations  used  by  the  "called" 
subroutine.  This  section  will  also  list  and  describe  the 
notation  used  in  the  equations  listed.  Whenever  applicable, 
units  are  also  listed  as  part  of  the  notation  description. 
The  vast  majority  of  the  equations  used  in  these  programs 
come  from  Aircraft  Performance  [Ref.  1 ] ,  NACA  Report  [1235] 
[Ref.  2 ] ,  and  Aerodynamics  of  V/STOL  Flight  [Ref.  3 ] . 

3 .  Flowchart 

This  section  contains  a  flowchart  which  is  an  out¬ 
line  of  the  computational  process  utilized  in  the  program  or 
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subroutine.  The  standard  HP-41  flowcharting  symbols  as  out¬ 
lined  in  the  Hewlett-Packard  Owner 1 s  Handbook  and  Program¬ 


ming  Guide  [Ref.  4]  have  been  used: 


circles  for  beginning  and  ending  a  pro¬ 
gram  or  subroutine 


rectangles  to  represent  the  functional 
operations 


diamonds  to  represent  the  decision 
processes . 

The  rectangle  was  modified  somewhat  from  the  standard  HP 
notation  in  order  to  visually  represent  a  subroutine: 

modified  rectangle  to  represent  subrou¬ 
tine  operation 


4 .  Example  Problems  and  User  Instructions 

This  seciion  represents  a  series  of  example  problems 
that  when  executed  by  the  user,  will  serve  to  familiarize 
the  user  with  program  operation,  program  displays,  required 
calculator  key  strokes,  program  notation,  program  inputs, 
and  program  outputs.  The  example  problems  contain  the  de¬ 
sign  data  of  actual  operational  military  helicopters  which 
in  turn  serves  to  familiarize  the  user  with  these  aircraft. 

A  word  of  warning  must  be  emphasized.  The  results  or  outputs 
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of  these  programs  when  compared  with  actual  operational  data 
are  sometimes  amazingly  accurate,  but  at  other  times,  they 
are  not.  Again,  the  theory  used  in  computation  uses  numerous 
assumptions  that  do  not  take  into  account  actual  flight  and 
operational  conditions.  Therefore,  when  executing  power  re¬ 
quirements,  these  programs  should  never  be  used  in  lieu  of 
the  appropriate  manufacturer's  performance  charts  or  opera¬ 
tor's  manuals.  Again,  the  purpose  of  these  programs  is  to 
give  the  preliminary  design  engineer  acceptable  figures  in 
the  preliminary  helicopter  design  process  and  not  to  super¬ 
cede  performance  charts  or  operator's  manuals. 

5.  Programs  and  Subroutines  Used 

This  section  lists  all  of.  the  programs  and  subrou¬ 
tines  used  during  the  execution  of  the  main  program  or  sub¬ 
routine.  The  user  must  insure  that  the  listed  programs  and 
subroutines  are  in  program  memory  before  execution  of  the 
program  is  attempted  otherwise  the  word  "NONEXISTENT"  will 
appear  in  the  calculator  display  as  the  calculator  searches 
for  a  subroutine  or  program  that  cannot  be  found  in  the  cal¬ 
culator  ' s  program  memory .  As  expected ,  the  program  cannot 
and  obviously  will  not  be  executed. 

6 .  Program  Listings 

This  section  contains  a  listing  of  the  program  lines 


of  the  program  or  subroutine.  In  some  cases, as  in  Appendix 
B,  both  the  program  and  its  subroutine  version  are  listed. 
The  main  programs  listed  in  Appendix  D  will  call  and  execute 


many  of  the  major  subroutines  listed  in  Appendix  C  as  well  as 
the  minor  subroutines  listed  in  Appendix  B. 
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IV.  RESULTS 

The  results  of  this  programming  project  are  presented  in 
Appendices  B,  C,  and  D.  Appendix  B  contains  many  short  pro¬ 
grams  and  their  subroutine  form.  These  programs  execute 
simple  calculations  such  as  solidity  of  the  rotor  system, 
rotor  disc  area,  density  of  the  air,  etc.  Appendix  C  con¬ 
tains  major  subroutines.  These  subroutines  execute  major 
calculations  such  as  induced  power,  profile  power,  data  in¬ 
put,  tandem  rotor  equivalent  area,  etc.  Appendix  D  contains 
the  major  programs  for  power  required  calculations.  These 
main  programs  call  and  execute  many  of  the  minor  subroutines 
found  in  Appendix  B  and  many  of  the  major  subroutines  found 
in  Appendix  C. 

The  validity  of  the  output  of  these  programs  is  excellent 
for  the  intended  purpose  of  preliminary  helicopter  design 
calculations  and  estimations.  As  mentioned  previously,  the 
idealized  theory  used  does  make  several  assumptions  and  thus 
certain  limitations  are  imposed  upon  the  results.  Some  of 
the  limitations  are  listed  here: 

1.  Symmetric  airfoils  with  zero  twist  are  used  through¬ 
out  these  programs.  All  actual  helicopters  have  main  rotor 
blades  which  utilize  some  degree  of  twist.  This  in  turn 
will  affect  the  overall  lift  generation  and  distribution. 
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2.  The  streamlining  effects  of  the  vertical  fin  on  tail 
rotor  power  requirements  in  forward  flight  were  not  modeled 
and  thus  taken  into  account. 

3.  Compressibility  effects  on  the  advancing  main  rotor 
blade  and  stall  effects  on  the  retreating  main  rotor  blade 
were  not  modeled  and  thus  taken  into  account.  Both  of  these 
effects  will  add  to  the  overall  horsepower  requirements  in 
forward  flight  computations. 

4.  The  theory  used  did  not  take  into  account  accessory 
losses  such  as  hydraulic  pumps,  electrical  generators,  fuel 
pumps,  heaters  and  air  conditioners.  Nor  did  the  theory  take 
into  account  drive  train  losses  such  as  gear  and  transmission 
friction.  All  helicopter  manufacturers  will  in  some  form  in¬ 
corporate  these  losses  into  their  performance  charts. 

5.  These  programs  do  not  take  into  account  the  main 
rotor  downwash  effects  on  the  helicopter  fuselage.  This  is 
a  small  horsepower  requirement  and  was  neglected  here. 

6.  These  programs  do  not  take  into  account  those  real 
world  operating  conditions  that  have  an  overall  effect  on  the 
performance  of  the  helicopter.  These  conditions  include,  but 
are  not  limited  to,  engine  erosion,  dirty  engine  compressor 
blades,  dirty  and/or  dented  rotor  blades.  Again,  these  pro¬ 
grams  should  not  be  substituted  for  performance  charts  and 
operator ' s  manuals . 


V.  CONCLUSIONS  AND  RECOMMENDATIONS 

The  user  of  these  programs  should  work  through  the  exam¬ 
ple  problems  given  in  the  various  program  and  subroutine 
listings.  In  doing  so.  Table  I,  Appendix  A,  An  Alphabetical 
Listing  of  All  Calculator  Displays  and  Their  Intended  Mean¬ 
ing,  will  become  a  valuable  aid.  Table  II,  Appendix  A,  Pro¬ 
gram  and  Subroutine  Storage  Requirements,  will  also  become 
useful  in  that  it  readily  assists  the  user  in  keeping  track 
of  the  calculator  memory  required  and  remaining.  And,  if  it 
becomes  necessary.  Table  III,  Appendix  A,  Storage  Register 
Utilization,  will  assist  the  user  in  the  program  editing 
process  in  that  it  lists  the  program  registers  used  and  their 
contents;  32  program  registers  have  been  used.  The  user 
should  insure  that  the  calculator  has  been  sized  for  031  be¬ 
fore  attempting  execution  of  the  programs. 
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APPENDIX  A 

QUICK  REFERENCE  TABLES 

The  tables  in  this  appendix  will  serve  the  user  of  this 
project  as  a  source  of  quick  reference.  Table  I  is  an  alpha¬ 
betical  listing  of  all  the  possible  calculator  displays  and 
their  intended  meanings.  Table  II  lists  all  of  the  programs 
and  subroutines  and  their  respective  storage  requirements 
both  in  terms  of  registers  required  and  bytes  required.  This 
table  readily  assists  the  user  in  keeping  track  of  the  cal¬ 
culator  memory  required  and  remaining.  Table  III  lists  the 
storage  registers  and  their  utilization.  This  table  will 
assist  the  user  in  the  program  editing  process. 
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TABLE  I 


AN  ALPHABETICAL  LISTING  OF  ALL  CALCULATOR 
DISPLAYS  AND  THEIR  INTENDED  MEANINGS 


Display 

1 - 

Explanation 

Formula 

Notation 

AREA* 

Answer:  rotor  disc  area  in  ft2 

ad 

a=? 

Prompt:  fraction  of  the  radius 
where  the  taper  starts  on  a 
tapered  rotor  blade  (decimal 
value) 

a 

B= 

Answer:  tip  loss  factor 
(decimal  value) 

B 

mm 

Prompt:  number  of  blades  in 
the  rotor  system 

b 

BOTH 

indicates  calculator  is  about 
to  execute  combination  of  ver¬ 
tical  flight  and  horizontal 
flight  (forward  climbing 
flight) 

C*? 

Prompt:  chord  length  of  the 
rotor  blade  in  ft 

C 

CdO=? 

Prompt:  average  profile  drag 
coefficient 

c. 

dQ 

CE= 

Answer:  equivalent  chord  in  ft 

ce 

CHANGE? 

Prompt:  asks  if  the  original 
input  data  now  needs  to  be 
changed.  1  is  Yes,  0  is  Nc 

C  RV  b  R  W 

chord-rotational  velocity- 
number  of  blades-radius-weight, 
press  key  on  calculator  key¬ 
board  directly  beneath  the 
variable  in  need  of  change 

C 

n 

b 

R 

w 

CT* 

Answer:  coefficient  of  thrust 

CT 

C0-? 

Prompt:  root  chord  in  ft 

Co 
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siocroo 


TABLE  I 
(continued) 


Cl=? 

Prompt:  tip  chord  in  ft 

c, 

d=? 

Prompt:  distance  between  the 
rotor  shafts  of  a  tandem  rotor 
helicopter  in  ft 

d 

DA= 

Answer:  density  altitude  in  ft 

hD 

DA=? 

Prompt:  density  altitude  in  ft 

h0 

d(HOR. GLIDE) = 

Answer:  horizontal  distance 
travelled  on  the  ground  at  the 
forward  autorotative  flight 
velocity  for  minimum  rate  of 
descent  in  ft 

d 

D.L.= 

Answer:  disc  loading  of  the 
rotor  system  in  lbs/ft2 

D.L. 

D.N.= 

Answer:  density  of  the  air 
lb-sec2  or  slug 

ft4  ft3 

P 

F- 

Answer:  a  non-dimensional 
coefficient  used  in  autoro¬ 
tation  calculations 

F 

FOR  ONLY? 

Prompt:  execute  forward 
flight  portion  of  program 
only?  1  is  Yes,  0  is  No 

FOR  V=? 

Prompt:  forward  flight 
velocity  in  kts 

Vf 

F.P.A. (FF) =? 

Prompt:  equivalent  flat  plate 
area  for  forward  flight 
calculations  in  ft2 

ff 

F.P.A. (VF) *? 

Prompt:  equivalent  flat  plate 
area  for  vertical  flight 
calculations  in  ft2 

fv 

GE=0 

Answer:  ground  effect  on  the 
induced  power  is  equal  to  zero 
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TABLE  I 
(continued) 


GE=0 , RATI 0=1 

Answer:  ground  effect  on  the 
induced  power  is  equal  to  zero, 
therefore  the  ground  effect 
ratio  is  equal  to  1 

H=? 

Prompt:  height  of  the  rotor 
system  above  the  ground  in  ft 

h 

HOVER? 

Prompt:  execute  hovering 
flight  portion  of  program  only? 

1  is  Yes,  0  is  No 

* 

LCM=? 

Prompt:  lift  coefficient  mul¬ 
tiplier  in  drag  coefficient 
terms 

K, 

L  (TAIL)  =? 

Prompt:  tail  length;  distance 
from  center  of  main  rotor 
shaft  to  center  of  tailrotor 
shaft  in  ft 

*t 

M(TIP) = 

Answer:  Mach  Number  at  the 
tip  of  the  advancing  rotor 
blade 

mt 

PA=? 

Prompt:  pressure  altitude 
in  ft 

hP 

PC= 

Answer:  climb  power  in 
horsepower 

D 

*  C 

PI= 

Answer:  induced  power  in 

p. 

horsepower 

1 

PI (TL) = 

Answer:  induced  power  with 
tip  losses  in  horsepower 

Pi(TL) 

PI (TL+GE) = 

Answer:  induced  power  with 
tip  losses  plus  ground 
effect  in  horsepower 

Pi (TL+GE) 

P0» 

Answer:  profile  power  in 
horsepower 

Po 

PO  ( TDM)  = 

Answer:  profile  power  for  a 
tandem  rotor  helicopter  in 
horsepower 

P 

0 

TABLE  I 
(continued) 


pp= 

Answer:  parasite  power  in 
horsepower 

P 

P 

PT (ACFT) = 

Answer:  total  power  for  the 
aircraft  in  horsepower 

PT 

PT (MR) = 

Answer:  total  power  for  the 
main  rotor  in  horsepower 

Hi 

PT (TDM) = 

Answer:  total  power  for  a 
tandem  rotor  helicopter 
in  horsepower 

PT 

PT  (TR)  = 

Answer:  total  power  for  the 
tailrotor  in  horsepower 

PT 

R=? 

Prompt:  radius  of  the  rotor 
system  in  ft 

R 

RATIO* 

Answer:  ground  effect  ratio 

- 

REC=? 

Prompt:  is  the  rotor  blade 
of  rectangular  planform? 

1  is  Yes,  0  is  No 

RV=? 

Prompt:  rotational  velocity 
of  the  rotor  system  in 
radians/second 

fi 

SOLID* 

Answer:  the  solidity  of  the 
rotor  system 

ar 

Prompt:  ambient  temperature 
in  degrees  celsius 

T(°C) 

TR  DATA 

the  calculator  is  now  ready 
to  prompt  for  the  tailrotor 
data  input 

• 

U~ 

Answer:  the  advance  ratio 

y 

VERT  ONLY? 

Prompt:  execute  vertical 
flight  portion  of  program 
only?  1  is  Yes,  0  is  No 

VERT  V»? 

Prompt:  vertical  velocity 
in  ft/min 

V 

V 
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TABLE  I 
(continued) 


VF(MIN.R.O.D. )  = 

Answer:  forward  autorotative 
flight  velocity  for  minimum 
autorotative  rate  of  descent 
in  kts 

Vf 

VI = 

Answer:  induced  velocity  in 

V. 

ft/sec 

1 

VT= 

Answer:  velocity  at  the  rotor 
tip  in  ft/sec 

VT 

W= 

Answer:  vertical  autorotative 

V 

velocity  in  a  vertical  auto¬ 
rotation  in  ft/min 

V 

W  ( MIN .  R .  0 .  D . )  = 

Answer:  vertical  autorotative 
velocity  (ft/min)  at  the  for¬ 
ward  autorotative  flight  vel¬ 
ocity  for  minimum  autorotative 
rate  of  descent 

V 

V 

w=-: 

Prompt:  weight  of  the  heli¬ 
copter  in  lbs 

TV 

2 


TABLE  II 


PROGRAM  AND  SUBROUTINE 
STORAGE  REQUIREMENTS 


Subroutine 

Program 

Subject  Area 

Name 

Reg 

Byte 

Name 

Reg 

Byte 

Appendix  B: 

Density 

Alti tude 

- 

- 

- 

"DA" 

12 

84 

Density 

"DN" 

7 

48 

"DENSITY" 

4 

27 

Disc  Area 

"AD" 

2 

14 

"AREA" 

4 

32 

Solidity 

"SD" 

3 

18 

"SOLID" 

6 

46 

Tip  Velocity 

"VT" 

2 

13 

" VTIP " 

6 

37 

Induced 

Velocity 

"VI " 

3 

19 

"VIND" 

6 

44 

Coefficient 
of  Thrust 

"CT  " 

3 

18 

"CTHRUST " 

8 

58 

Tip  Loss 

Factor 

"TL" 

3 

19 

"TIPLOSS" 

10 

n 

Equivalent 

Chord 

- 

- 

- 

"ECHORD" 

10 

70 

Ground  Effect 

"  GE  " 

8 

59 

"GEFFECT" 

10 

71 

Appendix  C 

Coefficients 

"CP" 

7 

54 

- 

- 

- 

Vertical  Com¬ 
ponent  of 
Induced 
Velocity 

"VC" 

24 

16  8 

Data  Input 

"DATA 

11 

81 

- 

- 

- 

Change  of  Data 

"CG" 

17 

121 

- 

- 

- 

TABLE  II  (continued) 


Subject  Area 

Name 

Reg 

Byte 

Name 

Reg 

Byte 

Profile  Power 

3 

O 

9 

62 

- 

- 

Induced  Power 

"PI" 

16 

112 

- 

- 

- 

Climb  Power 

"PC” 

5 

31 

- 

- 

- 

Parasite  Power 

«PP« 

6 

41 

- 

- 

- 

Total  Power 

11 PT 11 

5 

34 

- 

- 

- 

Equivalent 

Area  Tandem 
Rotor 

"AE” 

7 

47 

Induced  Power 
Tandem  Rotor 

•»  p  f  rp  M 

H 

10  8 

- 

- 

- 

mmmm 

- 

- 

- 

"HOVER"  i 

10 

66 

Forward  Flight 

- 

- 

- 

" FORFLT " 

19 

140 

Vertical  Flight 

- 

- 

- 

19 

133 

All  Flight 
Regimes 

- 

- 

- 

"FLIGHT” 

30 

205 

TABLE  III 


STORAGE  REGISTER  UTILIZATION 


Storage 

Register 


00 

01 

02 


03 


04 


05 

06 

07 


08 


09 

10 

11 


Stored  Quantity 


blank  -  used  for  computations 


C0  -  the  root  chord  of  the  rotor  blade  (ft) 

C j  -  the  tip  chord  of  the  rotor  blade  (ft) 

a  -  fraction  of  radius  where  the  taper  start 
on  a  tapered  rotor  blade  (decimal  value) 


C  or  C  -  the  chord  or  equivalent  chord 
e  length  of  the  rotor  blade  (ft) 

R  -  the  radius  of  the  rotor  system  (ft) 

b  -  the  number  of  blades  in  the  rotor  system 

Cd  -  the  average  profile  drag  coefficient 

fl  -  the  rotational  velocity  of  the  rotor 
system  (radians/sec) 

h  -  rotor  system  height  above  the  ground  (ft) 
W  -  weight  cf  the  helicopter  (lbs) 
p  -  density  of  the  air  lb-sec2  or  slug 


12 

13 

14 

15 

16 


17 


ft1*  ft3 


Aq  -  rotor  disc  area  (ft2) 

V,j,  -  velocity  of  the  rotor  tip  (ft/sec) 

CT  -  coefficient  of  thrust 
B  -  tip  loss  factor 

P.  -  induced  power  with  tip  losses 

1  (horsepower) 

h/D  -  height  *  diameter  of  rotor  system  used 
for  ground  effect  calculations 


TABLE  III 
(continued) 


18 

Pi(TL+GE)  ~  induced  power  with  tip  losses 
'  plus  ground  effect  (horsepower) 

19 

ar  -  the  solidity  of  the  rotor  system 

20 

v^  -  induced  velocity  (ft/sec) 

21 

PQ  -  profile  power  (horsepower) 

22 

blank  -  used  for  computations 

23 

Vv  -  vertical  velocity  (ft/sec) 

24 

f  -  equivalent  flat  plate  area  for  vertical 
v  flight  calculations  (ft2) 

25 

V ^  -  forward  velocity  (ft/sec) 

26 

f  -  equivalent  flat  plate  area  for  forward 
flight  calculations  (ft2) 

27 

v^  -  vertical  component  of  the  induced 

T  velocity  through  the  rotor  system  for 

forward  climbing  flight  (ft/sec) 

28 

Pp  -  parasite  power  (horsepower) 

29 

Pc  -  climb  power  (horsepower) 

30 

PT  -  total  power  (horsepower) 

31 

indirect  storage  register  -  used  by  all  the 
main  programs  in  conjunction  with  Subroutine 
"CG" 

note  -  Subroutine  "CF",  Subroutine  "VC",  and  Program  "TR" 
contain  the  only  deviations  from  the  above  table  in  storage 
register  utilization.  This  is  done  to  optimize  calculator 
storage  requirements .  The  appropriate  program  or  subroutine 
listing  gives  a  complete  explanation  for  the  appropriate 
deviation.  The  calculator  should  be  sized  for  032. 
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APPENDIX  B 


MINOR  PROGRAMS  AND  SUBROUTINES 


This  appendix  consists  of  several  short  programs  and 
their  subroutine  form.  These  programs  compute  density  alti¬ 
tude,  density,  disc  area,  solidity,  tip  velocity,  induced 
velocity,  coefficient  of  thrust,  tip  loss  factor,  equivalent 
chord,  and  ground  effect.  The  subroutines  will  be  called 
and  executed  by  the  main  programs  in  appendix  D. 
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DENSITY  ALTITUDE 


1.  PURPOSE 

This  program  computes  the  density  altitude,  h  ,  in  feet 

p 

when  given  the  pressure  altitude,  h  ,  in  feet  and  the  tem- 

P 

perature  in  degrees  Celsius.  The  equation  used  for  this  pro 
gram  is  based  upon  the  standard  atmosphere  and  described  in 
NACA  Report  (1955)  No.  1235  [Ref.  2],  This  equation  and 
thus  this  program  is  accurate  to  an  altitude  of  36,089  feet 
(isothermal  level) . 

2 .  EQUATIONS 

(  1  -  Kihp  )S‘2SS1 

(  1  -  K,hp  ) “*2561 
where: 

T  is  the  ambient  temperature  (absolute) 

Tssl  is  fche  standard  sealevel  temperature  (absolute) 
hp  is  the  pressure  altitude  (feet) 
hp  is  the  density  altitude  (feet) 

is  a  constant  equal  to  6.875  X  10-S 
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3.  FLOWCHART 


4.  EXAMPLE  PROBLEMS  AND  USER  INSTRUCTIONS 
The  altimeter  of  a  UH-60A  currently  indicates  a  pressure 
altitude  of  1600  feet  and  the  O.A.T.  (Outside  Air  Tempera 
ture)  gauge  indicates  24°  Celsius.  What  is  the  density 
alti tude? 


Keystrokes:  Display: 

[XEQ]  [ALPHA]  DA  [ALPHA]  PA=? 

1600  [R/S]  T»? 

24  [R/S]  DA«3 ,006.48 

note  -  do  not  touch  the  calculator  and  proceed  immediately 

to  the  next  problem 


The  same  UH-60A  is  now  sitting  On  the  deck  of  a  ship.  The 
altimeter  indicates  0  feet  and  the  O.A.T.  gauge  indicates  15 


What  is  the  density  altitude? 


Keystrokes: 
[R/S]  [R/S] 
0  [R/S] 

15  [R/S] 


Display: 

PA=? 

T=? 

DA=0 .00 


note 


(standard  day  sea 
level  conditions) 

pushing  the  run  stop  [R/S]  button  twice  will  repos 
tion  the  calculator  to  the  top  of  the  program 


5.  PROGRAMS  &  SUBROUTINES  USED 
"DA" 


6.  PROGRAM  LISTINGS 


0 1 ♦LBL  "DO" 
02  -PR*?" 

03  PROMPT 
04  6.875  E- 
06 

05  * 

06  CHS 
07  1 
08  + 

09  5.2561 

10  YTX 

11  T  =  7  ” 

12  PROMPT 

13  273. 16 

14  + 

15  / 


16  288. 16 

18  .23496 

19  YTX 

20  CHS 

21  1 
22  + 

23  6.375  E 
06 

24  ✓ 

25  FIX  2 

26  "Dfi=" 

27  RRCL  X 

28  RVIEW 

29  END 


32 


DENSITY 


1.  PURPOSE 

This  program/subroutine  computes  the  density  of  the  air 
at  a  given  altitude.  The  equation  used  for  this  calculation 
is  based  upon  the  standard  atmosphere  and  described  in  NACA 
Report  No.  1235  [Ref.  2].  This  equation  and  thus  this  pro¬ 
gram  is  accurate  to  an  altitude  of  36,089  feet  (isothermal 
level) .  This  program  is  therefore  considered  sufficient  for 
all  computations  using  density,  p,  here  and  in  succeeding 
programs . 


2 .  EQUATIONS 

p  =  pssl  i1  -  <K»>  (h>  ]  4*25S1 


(2) 


where : 


pssl  tJie  density  of  the  air  at  standard  sea 

level  conditions  which  is  equal  to 
0.0023769 


lb  'sec2 j 

or 

"“ft"  ! 

L  J 

slug 


_6 


K i  is  a  constant  equal  to  6.875  X  10 
h  is  the  density  altitude  (ft) 
p  is  the  density  of  the  air  at  level  h 
with  the  input  of  known  values,  the  equation  to  be  pro¬ 
grammed  now  becomes: 


P  =  0.0023769 


1  -  (6.875  X  10~5)  (h) 


*.2551 


(3) 
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l. 


3 .  FLOWCHART 


Find  the  density,  p,  at  a  density  altitude,  D.A.,  of 
1000  feet. 


Keystrokes:  Display: 

[XEQ]  [ALPHA]  DENSITY  [ALPHA]  D.A.=? 

1000  [R/S]  DN=0. 0023081 

note  -  do  not  touch  the  calculator  and  proceed  immediately 

to  the  next  problem 

Find  the  density,  p ,  at  a  density  altitude,  D.A.,  of 
5283  feet. 
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Keystrokes:  Display: 

[R/S]  [R/S]  D.A.=? 

5,283  [R/S]  DN»0. 0020306 

note  -  pushing  the  run  stop  [R/S]  button  twice  will  reposi 
tion  the  calculator  to  the  top  of  the  program 

Find  the  density,  p,  at  a  density  altitude,  D.A.,  of 
0  feet  (sea  level) . 


Keystrokes : 
[R/S]  [R/S] 
0  [R/S] 


Display: 

D.A.=? 

DN=0 .0023769 

(standard  day  sea 
level  conditions) 


5.  PROGRAMS  &  SUBROUTINES  USED 

"DENSITY" 

”DN" 


6.  PROGRAM  LISTINGS 


PROGRAM 

0 1 ♦LBL  "DEN 
SITY" 

02  XEQ  "DN" 
03  FIX  7 
04  " DN= " 

05  PRCL  X 
06  RV I EW 
07  END 


SUBROUTINE 

0 1 ♦LBL  "DN" 
02  "D.fl.=?" 

03  PROMPT 
04  6.375  E- 
06 

05  * 

06  CHS 
07  1 

08  + 

09  ENTERT 
10  4.2561 
1  1  YTX 

12  .0023769 

13  * 

14  STO  11 

15  END 
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4.  EXAMPLE  PROBLEMS  AND  USER  INSTRUCTIONS 


The  rotor  radius  of  the  UH-60A  Blackhawk  is  26.83  feet. 
Find  the  Disc  Area. 


Keystrokes : 

[XEQ]  [ALPHA]  AREA  [ALPHA] 
26.83  [R/S] 

The  rotor  radius  of  the  AH-  IT 
the  Disc  Area. 

Keystrokes : 

[R/S]  [R/S] 

24.00  [R/S] 


Display: 

R=  ? 

AREA=2 ,261.47 

SeaCobra  is  24.00  feet.  Find 

Display: 

R— ? 

AREA=1, 809.56 


5.  PROGRAMS  AND  SUBROUTINES  USED 

"AREA" 

"AD" 


6.  PROGRAM  LISTINGS 


PROGRAM 

SUBROUTINE 

0 1 ♦LBL  "ORE 

0  1  ♦LBL 

"RD 

1" 

02 

RCL 

©5 

02  “  R=?  ’■ 

03 

XT  2 

03  PROMPT 

04 

PI 

04  STO  05 

05 

* 

05  XEQ  ”  fi D  '• 

06 

STO 

12 

06  FIX  2 

07  " flREfi= ” 

08  ORCL  X 

09  flVIEW 

10  END 

07 

END 
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SOLIDITY 


1.  PURPOSE 

This  program/subroutine  computes  solidity,  a  ,  the  frac¬ 
tion  of  the  disc  area  that  is  composed  of  blades,  i.e.  solid 


2 .  EQUATIONS 

„  _  bcR  _  be 

°r  Tip-'  '  ~Tr 


(5) 


where: 


or  is  the  solidity  of  the  rotor  system 
b  is  the  number  of  rotor  blades  in  the  rotor  system 
R  is  the  radius  of  the  rotor  system  (ft) 
c  is  the  chord  length  of  the  rotor  blade  (ft) 


3 .  FLOWCHART 


4.  SAMPLE  PROBLEMS  AND  USER  INSTRUCTIONS 

Find  the  solidity,  or,  of  the  aft  rotor  system  on  the  CH-46E 
Sea  Knight  (note  -  the  fore  and  aft  rotor  systems  both  have 
the  same  dimensions) . 

R  =  25.50  ft 
c  =  1.5625  ft 
b  »  3 

Keystrokes : 

[XEQ]  [ALPHA]  SOLID  [ALPHA] 

3  [R/S] 

1.5625  [R/S] 

25.50  [R/S] 

Find  the  solidity,  or,  of  the  main  rotor  system  of  the 
CH-54A  Skycrane. 

R  =  36  .00  ft 
e  =  1.972  ft 
b  =  6 

Keystrokes : 

[R/S] 

6  [R/S] 

1.972  [R/S] 

36.00  [R/S] 


Display : 
b=? 

C=? 

R=? 

SOLID=0 .10462 


Display : 
b=? 

C=? 

R=? 

SOLID=0 .05851 
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5.  PROGRAMS  &  SUBROUTINES  USED 

"SOLID" 

"SD" 


6 .  PROGRAM  LISTINGS 


PROGRAM  SUBROUTINE 


0 1 ♦LBL  “SOL 

01 

♦  LBL 

D" 

02 

RCL 

02 

"b  =  ?" 

03 

RCL 

03 

PROMPT 

04 

* 

04 

STO  06 

05 

RCL 

05 

••  c = ?  •• 

06 

/ 

06 

PROMPT 

07 

PI 

07 

STO  04 

08 

/ 

08 

"  R  =  ?  " 

09 

STO 

89 

PROMPT 

10 

END 

10 

STO  95 

1  1 

XEQ  "SD" 

12 

FIX  5 

13 

" SOL  I B= " 

14 

flRCL.  X 

15 

OVIEW 

16 

END 

"SD" 

06 

04 

05 

1?  II 


I 
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TIP  VELOCITY 


1.  PURPOSE 

This  program/ subroutine  computes  the  tip  velocity  of  the 
rotor  blade.  The  tip  velocity,  V^,,  is  the  product  of  the 

■L 

rotational  velocity,  ft,  and  the  rotor  radius,  R. 

2.  EQUATIONS 

VT  =  ftR  (6) 

where : 

VT  is  the  velocity  of  the  rotor  tip  (ft/sec) 
ft  is  the  rotational  velocity  (radians/sec) 

R  is  the  rotor  radius  (ft) 


4.  SAMPLE  PROBLEMS  AND  USER  INSTRUCTIONS 


The  rotor  radius  of  a  CH-53D  Sea  Stallion  is  36.11  feet 
and  the  normal  rotational  velocity  is  19.37  radians/sec. 
Find  the  tip  velocity. 


Keystrokes : 
[XEQ]  [ALPHA] 
36.11  [R/S] 
19.37  [R/S] 


VTIP  [ALPHA] 


Display: 

R=? 

RV=? 

VT=6  9  9.45 


The  rotor  radius  of  an  AH-64  is  24.00  feet  and  the  normal 
rotational  velocity  is  30.26  radians/sec.  Find  the  tip 
velocity. 


Keystrokes : 
[R/S] 

24  [R/S] 
30.26  [R/S] 


Display: 

R=? 

RV=? 

VT=726 .24 


note  -  to  convert  RPM  to  radians/sec,  divide  by  9.55 


5.  PROGRAMS  &  SUBROUTINES  USED 

"VTIP" 

"VT" 


PROGRAM  LISTINGS 


PROGRAM 


SUBROUTINE 


0 1  ♦  LBL  •*  VTI 

p.. 

02  "R=?" 

03  PROMPT 
04  STO  05 
05  ••RV  =  ‘?“ 

06  PROMPT 
07  STO  08 
08  XEQ  “ V  T “ 
09  FIX  2 

10  ••  v  T  =  “ 

1 1  RRCL  X 

12  RVIEW 

13  END 


0 1 ♦LBL  “ V  T " 
02  RCL  08 
03  RCL  05 
04  * 

05  STO  13 
06  END 


INDUCED  VELOCITY 


1.  PURPOSE 

This  program/subroutine  computes  the  induced  velocity, 
v^,  the  total  inflow  velocity  through  the  rotor  system 
during  hover. 

2 .  EQUATIONS 


v. 

1 


2p*AD  j 


*5 


(7) 


where : 


v^  is  the  induced  velocity  (ft/sec) 


p  is  the  density  of  the  air 


lb  *sec2 
ft4 


Ad  is  the  rotor  disc  area  (ft2) 

T  is  the  thrust  which  is  equal  to  the  weight,  W  (lbs) 
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3 .  FLOWCHART 


4.  EXAMPLE  PROBLEMS  AND  USER  INSTRUCTIONS 

/ 

Find  the  induced  velocity,  ,  of  the  main  rotor  system  of 
a  hovering  SH-2F  LAMPS  under  the  following  conditions: 

DA  »  0  (sea  level) 

W  =  11,300  lb 
R  =  22.0  ft 

note  -  insure  that  Subroutines  "AD"  and  "DN"  are  in  program 
memory 


Keystrokes:  Display: 

[XEQ]  [ALPHA]  VIND  [ALPHA]  W=? 


11,300  [R/S] 
22.0  [R/S] 

0  [R/S] 


R=? 


D . A.=? 
VI=39 .54 


Find  the  induced  velocity,  v^,  of  the  main  rotor  system  o 
a  hovering  CH-54A  Skycrane  under  the  following  conditions 
D.A.  =  2000  ft 
R  »  36  ft 

W  =  42,500  (maximum  gross  weight) 


Display: 
W=? 

R=? 

D.A.=? 
VI«48 .26 

5.  PROGRAMS  &  SUBROUTINES  USED 

"VIND" 

"VI " 

"AD” 

"DN" 


Keystrokes : 
[R/3] 

42,500  [R/S] 
36  [R/S] 
2,000  [R/S] 
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PROGRAM  LISTINGS 


PROGRAM 

0 1 ♦LBL  " V I H 
D  “ 

02  "W=?" 

03  PROMPT 
04  STO  10 
05  ~  R  =  ? - 
06  PROMPT 
07  STO  05 
08  XEQ  “  OD  " 
09  XEQ  -DN- 

10  XEQ  “VI* 

11  FIX  2 

12  " V I = " 

13  QRCL  X 

14  QVIEU 

15  END 


SUBROUTINE 

01 ♦LBL  “VI 
02  RCL  10 
03  2 
04  / 

05  RCL  11 
06  ✓ 

07  RCL  12 
08 

09  SORT 
10  STO  20 
1  1  END 
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COEFFICIENT  OF  THRUST 


1.  PURPOSE 

This  program/subroutine  cqmputes  the  coefficient  of 
thrust  for  a  given  rotor  system.  The  coefficient  of  thrust 
is  a  non-dimensional  coefficient  established  to  facilitate 
computations  and  comparisons.  [Ref.l] 

2 .  EQUATIONS 
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Display: 

W=? 


Keystrokes : 

[XEQ]  [ALPHA]  CTHRUST  [ALPHA] 
8,400  [R/S] 

24.09  [R/S] 

31.94  [R/S] 

1,600  [R/S] 


R=? 

RV=? 

D.A.=? 

CT=0 .0034320 


Find  the  coefficient  of  thrust,  C^,  for  an  OH-6 A  operating 
under  the  following  conditions: 

N  =  470  RPM  -*■  ft  =  49.21  radians/sec 
D . A.  =  4000  ft 
W  =  2500  lb 
R  =  13.165  ft 


Keystrokes: 

[R/S] 

2,500 

13.165 

49.21 

4,000 


Display: 

W=? 

R=? 


RV=? 

D.A.=? 

CT*0 .0051824 


5.  PROGRAMS  &  SUBROUTINES  USED 
"CTHRUST" 

»* pm  h 

"DN" 

"AD" 

"VT" 
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6.  PROGRAM  LISTINGS 


PROGRAM 

SUBROUTINE 

0  1  ♦  LBL  •'  CTH 

0 1 ♦LBL 

"CT 

RUST 

•• 

02 

RCL 

10 

02 

"W  =  ?" 

03 

RCL 

1  1 

03 

PROMPT 

04 

/ 

04 

STO  10 

05 

RCL 

12 

05 

“R  =  ?” 

06 

s 

06 

PROMPT 

07 

RCL 

13 

07 

STO  05 

03 

XT  2 

08 

-RV=?“ 

0  9 

09 

PROMPT 

1  0 

STO 

14 

10 

STO  08 

1 1 

END 

1  1 

XEQ  "DM” 

12 

XEQ  "fiD" 

13 

XEQ  -VT“ 

14 

XEQ  "CT" 

15 

FIX  7 

16 

■'  C  T  =  “ 

17 

PRCL  X 

18 

QVIEW 

19 

END 
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TIP  LOSS  FACTOR 


X.  PURPOSE 

This  program/subroutine  computes  the  tip  loss  factor,  3. 
Tip  vortices,  at  the  tip  of  the  rotor  blades,  tend  to  despoil 
the  pressure  difference  at  the  tips  and  thereby  reduces  the 
lift  at  the  tips.  The  extent  of  these  losses  depends  upon 
the  rotor  blade  loadings,  and  number  of  blades.  Numerous 
theories  exist.  The  theory  used  in  this  subroutine  is  an 
approximation  of  the  tip  loss  factor  made  by  Prandtl  and 
Betz.  [Ref.  1]  After  the  tip  loss  factor,  3,  has  been  com¬ 
puted  in  the  subroutine  and  returned  to  the  main  programs 
used  later,  the  induced  power  will  change  in  accordance 
with  the  following  equation: 


2.  EQUATIONS 


b 


(10) 
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where : 


CT  is  the  coefficient  of  thrust 
b  is  the  number  of  rotor  blades 
B  is  the  tip  loss  factor 


3 .  FLOWCHART 


4.  EXAMPLE  PROBLEMS  AND  USER  INSTRUCTIONS 

Find  the  tip  loss  factor,  B,  for  an  0H-6A  Cayuse  operating 
under  the  following  conditions: 

N  =  470  RPM  -*•  fl  =  49.21  radians/sec 
D. A.  =  5,000  ft 
W  =  2,150  lbs 
R  =  13.165  ft 
b  =  4 


Keystrokes : 

Display: 

[XEQ]  [ALPHA]  TIPLOSS  [ALPHA] 

W=? 

2150  [R/S] 

R=? 

13.165  [R/S] 

RV=? 

49.21  [R/S] 

b=? 

4  [ R/3 ] 

D . A. =? 

5000  [R/S] 

3=0.9760 

Find  the  tip  loss  factor,  3,  for  the  same  helicopter  in  the 
above  problem,  only  this  time  use  the  maximum  gross  weight 

of  W  -  2550  lbs. 

Keystrokes:  Display: 

[R/S]  W=? 

2550  [R/S]  R=? 

13.165  [R/S]  RV=? 
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49.21  [R/S] 
4  [R/S] 

5000  [R/S] 


5.  PROGRAMS  &  SUBROUTINES  USED 

"TIPLOSS" 

"TL  " 

"DN" 

"AD" 

"VT" 


6.  PROGRAM  LISTINGS 


PROGRAM 
0 1 ♦LBL  "TIP 


LOSS" 

02 

"W=? 

03 

PROMPT 

04 

STO 

10 

05 

"R  =  ? 

•• 

06 

PROMPT 

07 

STO 

05 

08 

"  R  V  = 

^  •» 

09 

PrOMPT 

10 

STO 

w  w 

1  1 

_ 

12 

PROMPT 

13 

STO 

06 

14 

XEQ 

"DN" 

15 

XEQ 

"  0  D  " 

16 

XEQ 

"VT" 

17 

XEQ 

"CT" 

18 

XEQ 

"TL" 

19 

FIX 

4 

20 

“  B=  " 

21 

ORCL 

X 

22 

RVIEW 

23 

END 

b=? 

D.A.=? 
B=0 .9739 


SUBROUTINE 

01  ♦LBL  "TL" 
02  RCL  14 
03  2 
04  * 

05  SORT 
06  RCL  06 
07  / 

0S  CHS 
0'9  1 
10  + 

11  STO  15 

1 2  END 
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EQUIVALENT  CHORD 


1.  PURPOSE 

This  program  is  also  used  as  a  subroutine  by  the  main 
programs.  This  program  computes  the  equivalent  chord,  C&, 
for  a  tapered  rotor  blade.  A  tapered  rotor  blade  (the 
chord  at  the  tip  less  than  the  chord  at  the  root)  has  less 
tip  loss  effect  due  to  the  smaller  surface  area  over  which 
the  losses  may  occur;  this  is  the  primary  reason  for  taper¬ 
ing  the  tips  of  the  rotor  blades.  [Ref.  1] 

2 .  EQUATIONS 

The  calculation  for  equivalent  chord  for  thrust  deter¬ 
minations  has  reduced  to  the  following  figure  and  equation: 


FIGURE  1 

Tapered  Rotor  Blade 


C  = 
e 


r 


c  i  +  k  | 


cn  -  c, 


1  -  a 


(1 


"I 


a4) 


j 


(11) 
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where : 


C  is  the  equivalent  chord  (ft) 
e 

C0  is  the  root  chord  (ft) 

C i  is  the  tip  chord  (ft) 

a  is  the  fraction  of  radius  where  the  taper  starts 

(decimal  value) 

note  -  when  a  =  0,  the  blade  has  a  linear  taper  from  the 

root  to  the  tip.  When  a  =  1,  the  blade  is  completely 
rectangular,  and  Cg  =  C 

3 .  FLOWCHART 
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4.  EXAMPLE  PROBLEMS  AND  USSR  INSTRUCTIONS 

Find  the  equivalent  chord,  C^,  for  a  tapered  rotor  blade 
with  the  following  dimensions: 

C0  =  1.6  ft 
C!  =  0.8  ft 
a  =  .75 


Keystrokes:  Display: 

[XEQ]  [ALPHA]  ECHORD  [ALPHA]  C0=? 

1.6  [R/S]  Cl=? 

0.8  [R/S]  a=? 

.75  [R/S]  CE=1 .347 


Find  the  equivalent  chord,  C  ,  for  a  tapered  rotor  blade 
with  the  following  dimensions: 

C0  =  1.0  ft 
C,  =  0.9  ft 
a  =  .  9 


Keystrokes: 
[R/S]  [R/S] 

1  [R/S] 

.9  [R/S] 

.9  [R/S] 


Display: 

C0=? 

Cl=? 

a=? 

CE*0 .986 
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5.  PROGRAMS  &  SUBROUTINES  USED 
"ECHORD" 


6.  PROGRAM  LISTINGS 


PROGRAM 


0 1 ♦LBL  “ECH 
ORD" 

02  “ C  0  =  ? " 

03  PROMPT 
04  STO  01 
05  “ C 1 =  ? “ 

06  PROMPT 
07  STO  02 
08  "a=?" 

09  PROMPT 
10  STO  03 
1 1 ♦LBL  -EC- 

12  RCL  03 

13  ENTERT 

14  4 

15  YTX 

16  CHS 

17  1 
13  + 

19  RCL  01 

20  ENTERT 
^  21  RCL  02 

24  RCL  03 

25  CHS 

26  1 
27  + 

23  / 

29  4 

30  / 

31  RCL  02 

32  + 

33  FIX  3 

34  -CE=" 

35  flRCL  X 

36  OV I EW 

37  STOP 

38  END 
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GROUND  EFFECT 


1.  PURPOSE 

This  program/subroutine  computes  the  ground  effect  ratio 
P/Pqge'  as  a  function  of  the  ratio  of  the  rotor  system 
height  above  the  ground  to  the  diameter  of  the  rotor  system. 
[Ref.  1]  FIGURE  2  is  a  graph  which  shows  the  ratio  of  power 
required  to  hover  in-ground-effect  to  that  required  to  hover 
out-of -ground-effect  for  the  average  helicopter.  This  curve 
was  obtained  as  the  best  fit  to  considerable  amounts  of  test 
data  on  both  single  and  tandem  rotor  helicopters.  [Ref.  3] 


"5"  * 


FIGURE  2 

Ground  Effect  Curve  [Ref.  3] 


2 .  EQUATIONS 

A  curve  fitting  equation  for  the  plot  of  FIGURE  2  re¬ 
sults  in  the  following  equation: 
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4.  EXAMPLE  PROBLEMS  AND  USER  INSTRUCTIONS 


The  rotor  radius  of  an  SH-3H  is  31.0  ft.  It  is  currently 
hovering  above  the  deck  of  the  antisubmarine  carrier 
York town  with  the  rotor  system  24.33  ft  above  the  deck 
(wheels  10  ft  above  the  deck) .  What  is  the  ground  effect 
ratio? 

Keystrokes:  Display: 

[XEQ]  [ALPHA]  GEFFECT  [ALPHA]  H=? 

24.33  [R/S]  R=? 

31  [R/S]  RATIO=0 .8572 


The  rotor  radius  of  an  AH-lS  Cobra  is  22.0  ft.  It  is  moving 
into  a  holding  position  behind  and  just  below  the  top  of 
some  tall  cover  with  the  rotor  system  70.0  ft  above  the 
ground  (skids  58.0  ft  above  the  ground) .  What  is  the 
ground  effect  ratio? 


Keystrokes : 
[R/S] 

70  [R/S] 

22  [R/S] 


Display : 

H=? 

R=? 

GE=0 , RATIO® 1 


note  -  the  Cobra  is  hovering  out  of  ground  effect 


5.  PROGRAMS  &  SUBROUTINES  USED 

"GEFFECT" 

”  GE  " 
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-.1*  erf--.  .,  , 


6.  PROGRAM  LISTINGS 


PROGRAM 


0  1  ♦LBL  "GEF 
FECT” 

02  "H=?" 

03  PROMPT 
04  M  R  —  ? " 

0S  PROMPT 
@6  2 
07  * 

08  x 

09  STO  17 

10  1.55 

11  - 

12  X>0? 

13  GTO  01 

14  XEQ  "GE" 

15  FIX  4 

16  " Rft  T 10= " 

17  ftRCL  X 

18  ft V I EW 

19  GTO  02 
20+LBL  01 

21  “ GE=0 / Rfl 
T I  0=  1  " 

22  PROMPT 
23*LBL  02 
24  END 


SUBROUTINE 


0 1 ♦LBL  "GE 

02 

RCL  17 

03 

1 . 3432 

04 

4c 

05 

RCL  17 

06 

XT2 

07 

-1 . 4569 

08 

4e 

09 

+ 

10 

RCL  17 

1  1 

3 

12 

YTX 

13 

.  7030 

14 

4c 

15 

+ 

16 

RCL  17 

17 

4 

18 

YTX 

19 

— . 1276 

20 

4c 

21 

+ 

22 

.5147 

23 

+ 

24 

END 
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APPENDIX  C 


MAJOR  SUBROUTINES 

This  appendix  consists  of  several  ioajor  subroutines  that 
are  called  and  executed  by  the  main  programs  of  appendix  D. 
These  subroutines  compute  the  vertical  component  of  the  in¬ 
duced  velocity  for  forward  climbing  flight;  prompt  for  data 
input;  prompt  for  change  of  original  data  input;  compute  pro¬ 
file  power,  induced  power,  climb  power,  parasite  power,  and 
total  power  all  for  a  single  rotor  helicopter;  and  compute 
the  equivalent  area  and  the  induced  power  requirements  for  a 
tandem  rotor  helicopter. 
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COEFFICIENTS 


1."  PURPOSE 

This  is  a  Subroutine  used  by  those  main  programs  that 
deal  with  forward  climbing  flight  computations.  This  Sub¬ 
routine  calculates  and  stores  the  coefficients  of  a  fourth 
order  equation  which  Subroutine  ‘'VC"  will  recall  and  use 
to  solve  for  the  one  real  root  of  this  equation.  This  real 
root  is  the  vertical  component  of  the  induced  velocity,  v.  , 

1T 

which  when  multiplied  with  the  thrust,  T,  gives  the  product 
of  induced  power,  ?. ,  for  forward  climbing  flight. 


2.  EQUATIONS 


A(v.  ) 4  +  B { v .  )3  +  C ( v .  )2  +  D(v.  )  +  E  =  0  (13) 

^iji  lip  i 'n  ^"nri 

where : 

A  =  1.0 


is  the  vertical  velocity 
v  (ft/sec) 

-  is  the  forward  velocity 
(ft/sec) 

is  the  induced  velocity 
1  at  a  hover  (ft/sec) 


4.  EXAMPLE  PROBLEMS  AND  USER  INSTRUCTIONS 

This  subroutine  is  immediately  followed  by  Subroutine 
"VC"  when  used  in  the  main  programs.  During  its  computation 
Subroutine  "VC"  uses  storage  registers  R00  through  R13. 
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It  is  therefore  necessary  to  use  Subroutine  "DATA"  at  a 
latter  time  in  the  main  program  in  order  to  get  the  input 
data  properly  stored  into  the  correct  memory  registers. 
Because  of  this,  some  repetition  of  input  data  prompting 
will  occur  during  main  program  usage. 


5.  PROGRAMS  AND  SUBROUTINES  USED 

"  CF  " 

"DN" 

"AD" 

"VI" 


6 .  PROGRAM  LISTINGS 


SUBROUT 13 

IS 

0 1 ♦L6L 

"CF 

02 

R  =  ? 

03 

PROMPT 

04 

STO 

05 

05 

W=? 

06 

PROMPT 

07 

STO 

10 

08 

XEQ 

"DN 

09 

XEQ 

"OD 

10 

XEQ 

"  V  I 

1  1 

4 

12 

V  T  X 

13 

CHS 

14 

STO 

10 

15 

0 

16 

STO 

1  1 

17 

1 

13 

STO 

14 

19 

RCL 

23 

20 

2 

21 

* 

22 

STO 

13 

23 

2 

24 

25 

XT2 

26 

RCL 

25 

27 

XT2 

23 

+ 

29 

STO 

12 

30 

END 
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VERTICAL  COMPONENT  OF  INDUCED  VELOCITY 

1.  PURPOSE 

Subroutine  "VC”  is  a  subroutine  used  by  those  main  pro¬ 
grams  that  deal  with  forward  climbing  flight  computations. 

It  will  immediately  follow  Subroutine  "CF"  in  the  main  pro¬ 
gram  listing  because  Subroutine  "VC"  recalls  the  coeffi¬ 
cients  of  a  fourth  equation  that  Subroutine  "CF"  previously 
calculated.  Subroutine  "VC"  uses  the  input  of  these  co¬ 
efficients  to  solve  for  the  one  real  root  of  this  fourth 

order  equation.  This  real  root  is  v^  ,  the  vertical  compon- 

T 

ent  of  the  induced  velocity  through  the  rotor  system  for 
forward  climbing  flight  computations.  Subroutine  "VC"  is  a 
shortened  version  of  Program  "MHL".  Program  "MHL"  was  ob¬ 
tained  from  the  Catalog  of  Contributed  Programs  HP-41C 
User's  Library.  [Ref.  5!  When  given  a  polynomial  with  real 
coefficients.  Program  "MHL"  will  use  Maehly's  Method,  a 
modification  of  the  well-known  Newton's  Method  to  find  the 
real  roots  of  the  equation.  In  its  original  form,  Program 
"MHL "  has  131  program  steps.  This  program  was  modified 
for  use  as  Subroutine  "VC"  with  105  program  steps. 

2.  EQUATIONS 

See  Subroutine  "CF"  for  a  complete  description  of  the 
fourth  order  equation  that  Subroutine  "VC"  solves. 

Neither  the  equations  used  in  the  iterative  root  solving 
process  are  shown,  ncr  is  a  flowchart  for  this  process  shown. 
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A  complete  description  of  this  process  is  available  from  the 
HP-4 1C  User's  Library  Catalog,  Program  Number  00660C.  [Ref.  5] 

3 .  FLOWCHART 

none 

4.  EXAMPLE  PROBLEMS  AND  USER  INSTRUCTIONS 

The  user  may  wonder  why  Subroutine  "CF"  and  Subroutine 
"VC"  were  not  combined  into  one  subroutine.  Subroutine  "VC" 
has  previously  appeared  in  several  different  forms.  Each 
form  has  solved  the  fourth  order  polynomial  using  a  different 
technique.  Subroutine  "VC"  currently  exists  in  the  shortest 
form  found;  both  in  number  of  program  steps  and  program  run¬ 
ning  time.  Perhaps  the  user  of  this  subroutine  is  aware  of 
an  even  shorter  process  and  can  thus  modify  this  subroutine 
even  farther.  It  is  important  to  remember  here  that  one  of 
the  primary  reasons  for  the  use  of  subroutines  was  for  ease 
of  program  editing  and  modification. 

5.  PROGRAMS  &  SUBROUTINES  USED 
"VC  " 

6.  PROGRAM  LISTINGS 

SUBROUTINE 

0 1 ♦LBL  "VC" 

02  FIX  2 
03  SF  00 
04  SF  01 
05  CF  29 
06  4 

07  STG  00 


08  10.01 
09  + 

10  STO  06 

1 1  STO  08 

12  RCL  00 

13  .1 

14  '< 
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15  RCL  Z 

16  + 

17  STO  07 

18  CLX 

19  STO  01 

20  20 

21  STO  02 

22  FC?C  01 

23  GTO  02 

24  1  E— 3 

25  STO  04 
26<*LBL  02 

27  RCL  02 

28  XEQ  "QB" 

29  X=0? 

30  GTO  05 

31  RCL  02 

32  XEQ  "BQ" 

33  STO  ©5 

34  FS?  08 

35  GTO  04 

36  RCL  07 

37  STO  09 
38^LBL  03 

39  RCL  03 

40  RCL  02 

41  RCL  IND 
09 

42  - 

43  / 

44  ST-  05 

45  DSE  09 

46  GTO  03 
47-*LBL  04 

48  RCL  02 

49  RCL  03 

50  RCL  05 

51  / 

52  - 

53  ENTERT 

54  X<>  02 

55  - 

56  RCL  02 

57  / 

58  RBS 

59  RCL  04 

60  X<  Y? 


61  GTO  02 
62^LBL  05 

63  CF  00 

64  1 

65  ST+  01 

66  ST+  07 

67  RCL  02 

68  STO  27 

69  GTO  08 
70^LBL 

71  RCL  06 

72  STO  08 

73  RDN 

74  RCL  X 

75  0 

76^LBL  06 
77  RCL  IND 
08 

73  + 

79  * 

80  DSE  08 

81  GTO  06 

82  RCL  10 

83  + 

84  STO  03 

85  RTN 
86^LBL  “  BR ' 

87  RCL  06 

88  STO  08 

89  RDN 

90  RCL  X 

91  RCL  X 

92  0 

93^LBL  87 

94  * 

95  RCL  03 

96  INT 

97  10 

98  - 

99  RCL  IND 
08 

100  * 

10  1  + 

102  DSE  03 

103  GTO  07 
104^LBL  08 
105  END 
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DATA 


1.  PURPOSE 

This  is  a  subroutine  used  by  all  main  programs  for  data 
input,  and  depending  upon  the  looping  involved,  some  pro¬ 
grams  will  use  this  subroutine  more  than  once.  In  some  very 
few  instances,  not  every  item  of  data  that  the  calculator 
prompts  for  is  required  for  program  execution.  In  these 
few  instances,  the  EXAMPLE  PROBLEMS  AND  USER  INSTRUCTIONS 
sections  are  very  explicit  in  the  correct  procedures  to  be 
taken  for  data  input.  The  primary  reason  in  the  repetitive 
use  of  this  subroutine  is  to  save  program  steps  and  calcu¬ 
lator  memory.  Alpha  characters  and  operators,  the  main  in¬ 
gredient  of  this  subroutine,  are  more  costly  in  storage  re¬ 
quirements  (bytes)  than  the  typical  numerical  operators 
that  are  used  throughout  these  programs.  [Ref.  4] 

2 .  EQUATIONS 

none 
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3 .  FLOWCHART 


4.  EXAMPLE  PROBLEMS  AND  USER  INSTRUCTIONS 

No  equations  are  used,  but  this  subroutine  prompts  for 
the  following  input  where: 
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I 


Display: 

REC? 

C=? 

C0=? 

Cl=? 

a=? 

R=? 

b=? 


CdO=? 


RV=? 

H=? 

W=? 


D.A.=? 


Explanation: 

asks  if  the  rotor  blade  is  of  rectangular  planform 
1  [R/S]  if  the  answer  is  yes 

asks  for  the  blade  chord  (ft) 

0  [R/S]  if  the  answer  is  no 

asks  for  the  root  chord  (ft) 
asks  for  the  tip  chord  (ft) 

asks  for  the  fraction  of  radius  of  the  rectangular 

portion  of  the  blade  (decimal  value) 

asks  for  the  rotor  disc  radius  (ft) 

asks  for  the  total  number  of  individual  blades 

in  the  rotor  system 

asks  for  the  average  profile  drag  coefficient, 
asks  for  the  rotational  velocity,  8  (radians/sec) 
asks  for  the  rocor  system  height  above  the 
ground,  h  (ft) 

asks  for  the  weight  of  the  helicopter  (lbs) 
asks  for  the  density  altitude,  h  (ft) 


5.  PROGRAMS  &  SUBROUTINES  USED 

"DATA" 

"ECHORD" 

"DN" 
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6.  PROGRAM  LISTINGS 


SUBROUTINE 

0 1 ♦LBL  “DOT 

02  ••REC?" 

03  PROMPT 
04  X>0? 

05  GTO  10 
06  XEQ  “ECH 
ORD  “ 

07  GTO  11 
08^LBL  10 
09  " C  =  ? " 

10  PROMPT 
1 1 ♦LBL  11 

12  STO  04 

13  "R»?~ 

14  PROMPT 

15  STO  05 

16  b  =  ?  " 

17  PROMPT 

18  STO  06 

19  " CdO=? " 

20  PROMPT 

21  STO  07 

22  -RV*?' 

23  PROMPT 

24  STO  08 

25  " H=? " 

26  PROMPT 

27  STO  09 

28  " W=? " 

29  PROMPT 

30  STO  19 

31  XEQ  "DN" 

32  END 


CHANGE 


1.  PURPOSE 

This  is  a  subroutine  used  by  all  main  programs  for  expe¬ 
diting  the  change  of  input  data.  This  subroutine  is  the 
last  step  in  the  main  program  listing  before  program  termin¬ 
ation.  This  subroutine  allows  for  as  many  as  five  of  the 
input  variables  to  be  quickly  changed  before  returning  to 
the  top  of  the  main  program  listing  and  initiating  a  new 
program  operation.  Upon  examining  the  program  listing  for 
this  subroutine,  it  will  become  quickly  apparent  to  the  user 
the  ease  of  which  this  subroutine  could  be  edited  for  other 
desired  changes.  Again,  this  is  one  of  the  purposes  and 
obvious  advantages  of  using  subroutines  throughout  these 
programs. 

2.  EQUATIONS 

none 
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3 .  FLOWCHART 


*  Returns  to  and  reruns  the  main  program  with  new  data 
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I 


4.  EXAMPLE  PROBLEMS  AND  USER  INSTRUCTIONS 

No  sample  problem  is  given  here  because  of  the  numerous 
examples  that  exist  in  the  main  programs.  Note  that  when 
flag  27  is  set,  this  automatically  places  the  calculator 
into  the  [USER]  mode.  By  pressing  the  key  directly  below 
the  displayed  variable  in  need  of  change,  will  next  cause 
the  calculator  to  prompt  for  the  new  data  input.  The  new 
numeric  value  is  then  keyed  in  followed  by  [R/S] .  The 
calculator  will  again  prompt  in  the  display  for  another 
change  of  data  with:  "CHANGE? " .  The  user  should  remember 
that  here  as  well  as  elsewhere  in  these  programs,  yes  is  1 
and  no  is  0.  When  all  changes  have  been  made  and  the  an¬ 
swer  no  is  received,  the  calculator  will  then  return  to  the 
main  program  and  begin  execution  with  the  new  data.  If  on 
the  initial  time  through,  no  changes  are  desired,  and  the 
answer  no  is  given  (notice  from  the  flow  chart  that  flag  04 
has  not  been  set) ,  the  main  program  will  terminate  operation. 

5.  PROGRAMS  &  SUBROUTINES  USED 

’’CG" 

"ECHORD" 
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PROGRAM  LISTINGS 


SUBROUTINE 


0 1 ♦LBL  "CG" 
02  CF  04 
03^LBL  06 
04  “CHANGE? 

05  PROMPT 
06  X=0? 

07  GTO  07 
08  SF  04 
09  SF  27 

10  -  C  RV  b 
R  W" 

11  PROMPT 
12^LBL  fi 

13  "REC?" 

14  PROMPT 

15  X>0? 

16  GTO  02 

17  XEQ  "ECH 
ORD“ 

18  GTO  03 
19^LBL  02 

20  “  C=?  *' 

21  PROMPT 
22-*LBL  03 

23  3T0  04 

24  GTO  05 


25^LBL  B 

26  “RV=?“ 

27  PROMPT 

28  STO  08 

29  GTO  05 
30^LBL  C 

31  “ b=? " 

32  PROMPT 

33  STO  06 

34  GTO  05 
35^LBL  D 

36  ”R  =  ?“ 

37  PROMPT 

38  STO  05 

39  GTO  05 
40^LBL  E 

41  " W=? “ 

42  PROMPT 

43  STO  10 
44^LBL  05 

45  CF  27 

46  GTO  06 
47^LBL  07 

48  FS?  04 

49  GTO  IND 
31 

50  END 


PROFILE  POWER 


1.  PURPOSE 

This  subroutine  computes  the  profile  power,  P  ,  required 
in  terms  of  horsepower.  Profile  power  is  that  power  required 
to  turn  the  rotor  blades  against  their  drag. 


EQUATIONS 

poh  •  r-v^-p-vv 

(14) 

»  -  v;/vt 

(15) 

Po£/Poh  -  f1  +  4.2S„>) 

(16) 

where : 

r 

P  is  the  profile  power  required  to  hover  — - — 
oh  r  sec 

PQ^  is  the  profile  power  required  in  forward 

flight  [ft.-lb" 

L  sec  j 

is  the  average  profile  drag  coefficient 
'“‘O 

is  the  area  of  the  rotor  disc  (ft2) 

V?  is  the  tip  velocity  (ft/sec) 

is  the  forward  velocity  of  the  helicopter  (ft/sec) 
ar  is  the  solidity  of  the  rotor  system 
U  is  the  ratio  of  the  rotor  translational  velocity 
to  the  velocity  at  the  tip  due  to  rotation 

r  2 

p  is  the  density  of  the  air  J  -Lt?~seCL,  i 

1  ft4 
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FLOWCHART 


i 

i 

I 


ll 


30 


4.  EXAMPLE  PROBLEMS  AND  USER  INSTRUCTIONS 


none 


5.  PROGRAMS  &  SUBROUTINES  USED 
"PO" 


6.  PROGRAM  LISTINGS 


SUBROUTINE 

0 1 ♦LBL 

"PO 

02 

RCL 

13 

03 

3 

04 

YtX 

05 

RCL 

12 

06 

* 

07 

RCL 

1  1 

08 

* 

09 

RCL 

07 

10 

* 

1  1 

RCL 

19 

12 

* 

13 

4400 

14 

s 

15 

STO 

21 

16 

RCL 

25 

17 

X  =  0? 

18 

GTO 

08 

19 

RCL 

13 

20 

21 

X  T  2 

o  ■-> 
<— 

4 . 25 

23 

* 

24 

■« 

A 

25 

+ 

26 

RCL 

21 

27 

:4c 

28 

GTO 

09 

29+LBL 

08 

38 

RCL 

2  1 

3 1 ♦LBL 

09 

32 

■PO  = 

•• 

33 

PROMPT 

34 

VIEW 

X 

35 

STOP 

36 

STO 

21 

37 

END 
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INDUCED  POWER 


1.  PURPOSE 

This  subroutine  computes  the  induced  power,  P^ ,  re¬ 
quired  in  terms  of  horsepower.  This  subroutine  deals 
only  with  hover  and  it  takes  into  consideration  both  tip 
losses  and  ground  effect.  The  induced  power  which  produces 
a  thrust  equal  to  the  weight  (at  hover)  is  equal  to  the  pro¬ 
duct  of  the  thrust  and  the  inflow  velocity.  All  of  the  main 
programs  compute  the  inflow  velocity  peculiar  to  their  flight 
conditions  and  will  enter  this  subroutine  at  Label  "?J"  or 
"TJ"  . 
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P.  is  the  induced  power  ft-lb 
i  sec 

P.  is  the  induced  power  with  tip  losses 
lTL  se 


is  the  induced  power  under  out-of-ground 

loge  - 

effect  conditions 

!  sec 


RATIO  is  the  ground  effect  ratio 


FLOWCHART 


Start 


next  page 


4 .  EXAMPLE  PROBLEMS  AND  USER  INSTRUCTIONS 

none 

5.  PROGRAMS  AND  SUBROUTINES  USED 

"PI" 

"  GE  " 
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^  w  w  10  v  n  co  ctms  -I  oj  n ’t  in  n  ©«j>  o  *h  oj  re  t  in 

000®®05ffl0HHHtHrtHHHrtH(\J(\JW  (VI  (VI  CM  <M 


6 .  PROGRAM  LISTINGS 


SUBROUTINE 


♦LBL  -PI” 

27 

RCL  09 

RCL  10 

28 

2 

1 . 5 

29 

s 

YTX 

30 

RCL  05 

RCL  1  1 

31 

/ 

RCL  12 

32 

STO  17 

* 

33 

1 . 55 

2 

34 

- 

i  * 

35 

X>0? 

t  SORT 

36 

GTO  12 

s 

37 

XEQ  "GE 

550 

38 

RCL  16 

/ 

39 

+ 

♦LBL  "PJ" 

40 

“PI<TL+i 

“  P  I  =  “ 

E  >  =  ” 

PROMPT 

4  1 

PROMPT 

VIEW  X 

42 

VIEW  X 

STOP 

43 

STOP 

'  RCL  15 

44 

GTO  13 

i  / 

45^LBL  12 

♦LBL  "TJ" 

46 

GE  =  0  " 

:  " P I <  TL  >  = 

47 

PROMPT 

48 

RCL  16 

PROMPT 

49^LBL  13 

VIEW  X 

50 

STO  18 

STOP 

51 

END 

STO  16 

85 


CLIMB  POWER 


r 

1.  PURPOSE 

f  This  subroutine  computes  the  climb  power,  P  ,  required 

i  c 

*  in  terms  of  horsepower. 

2.  EQUATIONS 

P  =  T  •  V  (18) 

c  v 

where : 

fft-lb-1 

P  is  climb  power  > _ £■ 

C  L  sec  J 

T  is  the  thrust  which  is  equal  to  the  weight,  W  (lb) 

is  the  vertical  velocity  (ft/sec) 


i 


3 .  FLOWCHART 


4.  EXAMPLE  PROBLEMS  AND  USER  INSTRUCTIONS 

none 

5.  PROGRAMS  &  SUBROUTINES  USED 
"PC" 


3" 


6.  PROGRAM  LISTINGS 


SUBROUTINE 


0 1 ♦LBL  "PC 
02  RCL  23 
03  X=0? 

04  GTO  02 
05  RCL  10 
06  * 

07  550 
08  / 

09  " P  C  = " 

10  PROMPT 

11  VIEW  X 

12  STOP 
13-*LBL  02 

14  STO  29 

15  END 
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PARASITE  POWER 


1.  PURPOSE 

This  subroutine  computes  the  parasite  power,  P  , 

P 

required  in  terms  of  horsepower.  As  the  helicopter  pro¬ 
ceeds  from  hover  into  forward  flight,  drag  forces  are 
created  on  the  various  components  of  the  helicopter  due  to 
pressure  drag  and  skin  friction. 

2.  EQUATIONS 

Pp  *  ‘W’V'v’  +  (19) 

where : 

rf t-lbf 1 

P  is  the  parasite  power  - L 

**  i  sec  j 

fv  is  the  equivalent  flat  plate  area  for  vertical 

flight  (ft2) 

f  is  the  equivalent  flat  plats  area  for  forward 
£ 

flight  (ft2) 

Vv  is  the  vertical  velocity  (ft/sec) 

is  the  forward  velocity  (ft/sec) 

r  lh »  S6C^ 

0  is  the  density  of  the  air  i  _ _ 

L  ft“  . 
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FLOWCHART 


EXAMPLE  PROBLEMS  AND  USER  INSTRUCTIONS 

none 


PROGRAMS  &  SUBROUTINES  USED 

11  p  p  *• 


90 


6.  PROGRAM  LISTINGS 


SUBROUTINE 


0 1 ♦LBL  "PP" 
02  RCL  25 
03  3 
04  YTX 
05  RCL  26 
06  * 

97  RCL  23 
0S  3 
09  YTX 

10  RCL  24 

11  * 

12  + 

13  RCL  11 

14  * 

15  1100 

16  / 

17  -pp=" 

18  PROMPT 

19  VIEW  X 

20  STOP 

21  STO  28 

22  END 


TOTAL  POWER 


1.  PURPOSE 

This  subroutine  computes  the  total  power,  P  , 
for  the  main  rotor  in  terms  of  horsepower. 

2.  EQUATIONS 

P_  =  P ■  +  +  P„  +  P„ 

T  i  o  c  P 

wherw : 

P^  is  the  total  power  required 
P^  is  the  induced  power  required 
Pq  is  the  profile  power  required 
P^  is  the  climb  power  required 
P  is  the  parasite  power  required 


required 


(20 


Recall  Pi 

from  Rj  3 

P 

o 

from  R2 i 

P 

P 

from  R28 

P 

c 

from  R2  9 

while  solving 

equation 

for  PT  (hp) 

Store  answer  into  R3o 

I - - - 1 


Display  answer 


6 .  PROGRAM  LISTINGS 


SUBROUTINE 

0 1 ♦LBL 

"PT" 

02 

RCL 

13 

03 

RCL 

21 

04 

+ 

05 

RCL 

23 

06 

+ 

07 

RCL 

29 

03 

+ 

09 

STO 

30 

10 

•*  P  T  <  M  R  >  = 

1  1 

PROMPT 

12 

VIEW 

i  A 

1  3 

STOP 

14 

END 
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PURPOSE 


AD- A  125  036 
UNCLASSIFIED 


HAND-HELD  COMPUTER  PROGRAMS  FOR  PRELIMINARY  HELICOPTER  1/1 
DESIGN(U)  NAVAL  POSTGRADUATE  SCHOOL  MONTEREY  CA  + 

P  J  FARDINK  OCT  82 

F/G  9/2.  NL 


MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BUREAU  Of  STANDARDS -1963- A 


(25) 


A  ■  2A,  +  2A, 
e  1  z 


f. 


A  1 

°\ 


Y-smycosy 


l\ 


where: 

SR  is  the  shaft  spacing  ratio 

A  is  the  total  combined  area  of  the  two  rotor 

o 

discs  (ft2) 

Ag  is  the  equivalent  area  (ft2) 
y  is  the  wake  skew  angle  (radians) 

R  is  the  radius  of  the  rotor  system  (ft) 

D  is  the  diameter  of  the  rotor  system  (ft) 
d  is  the  distance  between  the  rotor  shafts  (ft) 


"i 


FLOWCHART 


EXAMPLE  PROBLEMS  AND  USER  INSTRUCTIONS 

none 


PROGRAMS  &  SUBROUTINES  USED 
"AE" 


9: 


PROGRAM  LISTINGS 


SUBROUTINE 
0 1 ♦  LBL  "RE" 


02  “ d  =  ? “ 
03  PROMPT 
04  RCL  05 
05  ✓ 

06  STO  00 
07  RCL  15 
08  / 

09  2 
10  / 

1  1  ROD 

12  RCOS 

13  STO  12 

14  COS 

15  RCL  12 

16  SIN 

17  * 

18  CHS 

19  RCL  12 

20  + 

21  PI 

22  ✓ 

23  CHS 

24  1 

25  + 

26  2 

27  * 

28  PI 

29  * 

30  RCL  05 

31  RCL  15 

32  * 

33  XT2 

34  * 

35  STO  12 

36  DEG 

37  END 


TANDEM  ROTOR  INDUCED  POWER 


1.  PURPOSE 


This  subroutine  computes  the  induced  power  required  for 
a  tandem  rotor  helicopter  in  terms  of  horsepower.  This  sub¬ 
routine  will  compute  both  the  induced  power  at  a  hover,  P.^  , 

h 

and  the  induced  power  in  forward  flight,  P£  . 


2 .  EQUATIONS 


1 1.5 


P.  = 


/  2*p*A, 


K  =  1.46  -  0.253S. 


%  -  VK‘ 


K  =  1  +  d-/2 
u  f 


SR  *  d/R 


Y  *  tan 


-i 


1.5  T< 


2*p*A£«Vf 2 

J  1  +  SR2  +  Sr’COSY 


r 


i  +  SR2 


(1  +  SR2 • sin2 y) 


(26) 

(27) 

(28) 

(29) 

(22) 

(30) 

(31) 


where : 


is  the  induced  power  at  a  hover 


ft-lbf 

sec 


P •  is  the  induced  power  in  forward  flight 

A  is  the  effective  area  (ft2) 
e 

is  the  area  of  the  forward  rotor  disc  (ft2) 
df  is  the  induced  power  correction  factor 
Ku  is  the  forward  flight  correction  factor 
SR  is  the  rotor  shaft  spacing  ratio 
Tf  is  the  thrust  of  the  forward  rotor  which  is 
usually  equal  to  JjW,  the  weight  (lb^) 

Vf  is  the  forward  velocity  (ft/sec) 

K  is  the  ratio  of  the  induced  power  at  a  hover  for 
a  single  rotor  helicopter  as  compared  to  a  tandem 
d  is  the  distance  between  the  rotor  shafts  (ft) 

R  is  the  radius  of  the  rotor  system  (ft) 

T  is  the  thrust  which  is  equal  to  the  weight,  W  (lbf) 
Y  is  the  wake  skewing  angle 
p  is  the  density  of  the  air  !  Ip -sec 

L  ft-  J 

3 .  FLOWCHART 


Recall  W  from  Rj „ 

A  from  R12 
p  from  Rj  j 
SR  from  R0fl 

while  solving 
equation  for  Pj^fhp) 

nex  J  page-* 


ft-lbf ' 
sec 


100 


Store  answer  into  R 


Recall  V.  from  R„ 


while  solving 
equations  for  df,K 
and  finally  Pif  {hp) 


Stop 


♦enters  Subroutine  "PI"  at  label  "TJ* 


4.  EXAMPLE  PROBLEMS  AND  USER  INSTRUCTIONS 


none 


5.  PROGRAMS  &  SUBROUTINES  USED 

"PIT" 

"AD" 

"PI"  at  label  "TJ" 


6.  PROGRAM  LISTINGS 
SUBROUTINE 


01 ♦LBL 

~p: 

02 

RCL 

10 

03 

1 . 5 

04 

YTX 

05 

RCL 

12 

06 

RCL 

1 1 

07 

* 

08 

2 

09 

* 

10 

SORT 

1  1 

12 

55© 

13 

/ 

14 

RCL 

00 

15 

-.253 

16 

♦ 

17 

1 . 46 

18 

+ 

19 

* 

20 

STO 

16 

21 

RCL 

25 

22 

X  =  0? 

23 

GTO 

01 

24 

RCL 

10 

25 

.  375 

26 

* 

27 

RCL 

1  1 

28 

/ 

29 

XEQ 

"fl 

38 

31 

RCL 

25 

32 

XT2 

33 

/ 

34 

RTOH 

35 

STO 

22 

36 

SIN 

37 

XT2 

38 

RCL 

00 

39 

XT2 

40 

* 

41 

1 

42 

+ 

43 

RCL 

00 

44 

XT2 

45 

1 

46 

+ 

47 

SORT 

48 

STO 

19 

49 

* 

50 

1/X 

51 

RCL 

22 

52 

COS 

53 

RCL 

00 

54 

* 

55 

RCL 

19 

56 

+ 

57 

* 

58 

2 

59 

/ 

60 

1 

61 

+ 

62 

RCL 

16 

63 

* 

64 

GTO 

02 

65+LBL 

01 

66 

RCL 

16 

67^LBL 

02 

68 

XEQ 

”TJ 

69 

END 
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APPENDIX  D 


MAIN  PROGRAMS 


This  appendix  consists  of  the  main  programs  of  this  pro¬ 
gramming  effort.  The  major  ingredients  of  these  programs  are 
the  subroutines  found  in  the  preceding  two  appendices.  These 
main  programs  compute  the  various  power  requirements  for 
hovering  flight,  forward  (straight  and  level)  flight,  ver¬ 
tical  flight,  and  forward  climbing  flight  all  for  a  single 
rotor  helicopter;  also  tailrotor  power  requirements;  auto- 
rotative  flight;  tandem  rotor  hovering  and  forward  flight 
power  requirements;  and  finally  a  short  program  to  check 
several  of  the  critical  flight  parameters. 


[•] 


3 


HOVER 


1.  PURPOSE 

This  main  program  computes  the  various  power  require¬ 
ments  in  terms  of  horsepower  for  hovering  flight.  The  var¬ 
ious  calculated  power  requirements  are  displayed  as  follows 
Display:  Explanation: 

PI**  induced  power 

PI(TL)=  induced  power  with  tip  losses 

PI(TL+GE)»  induced  power  with  tip  losses  plus  ground 

effect 

P0=  profile  power 

PT (MR) =  total  power  for  the  main  rotor 

2 .  EQUATIONS 

No  equations  are  found  in  the  actual  program  itself. 
Consult  the  various  subroutine  listings  for  the  equations 
used. 
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3 .  FLOWCHART 


4.  EXAMPLE  PROBLEMS  AND  USER  INSTRUCTIONS 


Find  the  hover  power  requirements  for  an  OH-58C,  Kiowa, 
under  the  following  conditions: 

C  =  1.086  ft  ft  *  354  RPM  37.068  rads/sec 

R  *  17.7  ft  h  *  25  ft 

b  »  2  D.A.  =  1,000  ft 


W  =  3,000  lbs 


=  .008 


Keystrokes : 


Display : 


[XEQ]  [ALPHA]  HOVER  [ALPHA]  REC? 

(Rectangular  Blade?  1  is  Yes,  0  is  No) 


1  [R/S] 

C=? 

1.086  [R/S] 

R=? 

17.7  [R/S] 

b=? 

2  [R/S] 

CdO=? 

.008  [R/S] 

RV=? 

37.068  [R/S] 

H=? 

25  [R/S] 

W=? 

3,000  [R/S 1 

II 

• 

< 

• 

a 

1,000  [R/S] 

PI* 

[R/S] 

140.16 

[R/S] 

PI (TL) = 

[R/S] 

145.87 

[R/S] 

PI (TL+GE) 

[R/S] 

139.21 

[R/S] 

PO= 

45.57 


|  PT(MR)= 

|  184.77 

|  CHANGE? 

ige  Data?  1  is  Yes,  0  is  No) 

'S]  C  RV  b  R  W 

5  desired  at  this  point  to  increase  the  weight  of  this 
:opter  to  3,200  lbs  (maximum  gross  weight) .  To  observe 
effect  this  change  will  have  on  the  hover  power  re¬ 
orients,  press  the  key  on  the  calculator  keyboard  di- 
Ly  beneath  the  variable  in  need  of  change.  In  this  case 
[LN]  key  is  directly  beneath  the  W  in  the  display: 

W=? 

)  [R/S]  CHANGE? 

Further  Changes?  1  is  Yes,  0  is  No) 

'Si  PI- 

154  .41 
PI (TL) = 

160.92 
PI (TL+GE) = 

153.56 

PO= 

45.57 
PT  (MR)  = 

199.13 

CHANGE? 


107 


0  [R/S ] 


0  .00 


Now,  using  the  same  OH-58C  at  the  new  weight  of  3,200  lbs 
find  the  hover  power  requirements  with  the  rotor  system 


height 

above  the  ground. 

h,  equal  to  60  ft. 

Keystrokes : 

Display: 

[R/S] 

REC? 

1  [R/S 

] 

C=? 

1.086 

[R/S] 

R=? 

17.7  [R/S] 

b=? 

2  [R/S] 

CdO=? 

.008  [R/S] 

RV=? 

37.068 

[R/S] 

H=? 

60  [R/S] 

W=? 

3,200 

[R/S] 

D.A.=? 

1,000 

[R/S] 

PI- 

[R/S] 

154.41 

[R/S] 

PI (TL) = 

[R/S] 

160  .92 

[R/S] 

GE=0 

(Ground  effect  is  now  equal  to  zero,  the  helicopter  is 
hovering  out  of  ground  effect.) 


[R/S] 

[R/S] 

[R/S] 

[R/S] 


PO= 

45  .57 
PT  (MR)  = 
206.48 
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[R /SI 
0  [R/S] 

5.  PROGRAMS  &  SUBROUTINES  USED 


AD" 

"ECHORD” 

"PT 

CG" 

"GE" 

"SD 

CT" 

"HOVER" 

"TL 

DATA" 

"PI" 

"VT 

DN" 

"PO" 

6.  PROGRAM  LISTINGS 


PROGRAM 


0  1  ♦LBL 

"HOV 

ER" 

02 

CLRG 

03 

“HI  ” 

04 

ASTO 

31 

05 

XEQ 

“DAT 

A“ 

06*LBL 

“HI" 

07 

XEQ 

“  A  D  “ 

08 

XEQ 

"VT" 

09 

XEQ 

"  C  T  " 

10 

XEQ 

"TL" 

1  1 

XEQ 

"PI" 

12 

XEQ 

"SD" 

13 

XEQ 

*•  P  O  " 

14 

XEQ 

"PT" 

15 

XEQ 

"  CG  " 

16 

END 
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CHANGE? 

0.00 


~  •*, 'SHtm  tS 


FORWARD  FLIGHT 


1.  PURPOSE 

This  main  program  computes  the  various  power  require¬ 
ments  in  terms  of  horsepower  for  forward  (straight  and 
level)  flight.  If  the  forward  flight  velocity,  V^,  is 
entered  as  zero,  this  program  will  also  calculate  the  var¬ 
ious  hover  power  requirements .  The  various  calculated 
power  requirements  are  displayed  as  follows : 

Display:  Explanation: 

PI=  induced  power 

PI(TL)=  induced  power  with  tip  losses 

PI(TL+GE)=  induced  power  with  tip  losses  plus  ground 
effect 

P0=  profile  power 

PP=  parasite  power 

PT (MR) =  total  power  for  the  main  rotor 


2 .  EQUATIONS 


Vf  (ft/sec)  *  vf  (kts)  *  (1*68894) 
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where : 


T  is  the  thrust  which  is  equal  to  the  weight,  W  (lbf) 

Vf  is  the  forward  velocity  (ft/sec) 

v^  is  the  induced  velocity  at  a  hover  (ft/sec) 

"*■  r 

P{  is  the  induced  power  required 

:  sec 

U  -i 

viT  is  the  thrust  component  of  the  induced  velocity 
vector  (ft/sec) 

No  other  equations  are  found  in  the  actual  program 
itself.  Consult  the  various  subroutine  listings  for  the 
equations  used . 


FLOWCHART 


^tar^ 

Clear  all  Storage 
Registers 

Alpha  Store 

F2  into  R , , 

1 

Prompt  for  and 
convert  V£  from 
(kts)  to  (ft/sec) 
Store  into  R„_ 

i 

Prompt  for  and 
input  f  into  R, 

z  2  b 

rr  ^ - ' 

1 1  Execute 

H  Subroutine  "DATA" 

■ 

Execute 

Subroutine  "AD" 

1 

Execute 

Subroutine  "VT" 

J 

Execute 

Subroutine  "CT" 

Execute 

Subroutine  "TL" 

Execute 

Subroutine  "VI" 

I 

Recall  V 
V 
W 

while  so. 
equation: 
and  then 

from  R  5 
from  R 
from  R, A 
Lving  1 0 

3  for  Vj 

pi  (hp)  T 

_ _  ( 

Execute 

Subroutine  "PjB* 

0 

Execute 

Subroutine  "SD" 

1 

Execute 

Subroutine  "Po" 

] 

Execute 

Subroutine  "pp" 

Execute 

Subroutine  "PT" 


Execute 

Subroutine  "CG" 


*enters  Subroutine  "PI 
at  label  "PJ" 
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4.  EXAMPLE  PROBLEMS  AND  USER  INSTRUCTIONS 


Find  the  forward  (straight  and  level)  flight  power  require¬ 


ments  for  an  0H-6A,  Cayuse, 

C  *  0.57  ft 
R  =  13.165  ft 
b  =  4 

W  *  2,250  lbs 
h  =  100  ft 

Keystrokes : 

[XEQ]  [ALPHA]  FORFLT  [ALPHA] 
90  [R/S] 

5  [R/S] 

(Rectangular  Blade?  1  is  Yes 
1  [R/S] 

.57  [R/S] 

13.165  [R/S] 

4  [R/S] 

.009  [R/S] 

49.215  [R/S] 

100  [R/S] 

2,250  [R/S] 

500  [R/S] 

[R/S] 

[R/S] 

[R/S] 


under  the  following  conditions : 
0  =  470  RPM  -►  49.215  rads/sec 


D.A.  =  500  ft 
Vf  =  90  kts 
ff  =  5.0  ft2 

Display: 

FOR  V=? 
F.P.A. (FF) =? 
REC? 

0  is  No) 

C=? 

R=? 
b=? 

CdO=? 

RV=? 

H=? 

W=? 

D . A . =? 

PI= 

23.72 
PI (TL) = 

24.28 
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GE=0 


ER/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

(Change  Data?  1  is  Yes,  0 
1  [R/S] 


P0= 

48.27 

PP= 

37.39 
PT  (MR)  = 

109.94 

CHANGE? 

is  No) 

C  RV  b  R  W 


It  is  desired  at  this  point  to  decrease  the  rotor  radius 
from  13.165  ft  to  12.665  ft.  To  observe  what  effect  this 
change  will  have  on  the  forward  flight  horsepower  require¬ 
ments,  press  the  key  on  the  calculator  keyboard  directly 
beneath  the  variable  in  need  of  change.  In  this  case  the 
[LOG]  key  is  directly  beneath  the  R  in  the  display: 

[LOG]  R=? 

12.665  [R/S]  CHANGE? 


(Any  Further  Changes?  1  is  Yes,  0  is  No) 


0  [R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 


PI= 
25.63 
PI (TL) = 
26  .28 
GE=0 
PO= 


[R/S] 


41.97 
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[R/S] 

PP= 

[R/S] 

37.39 

[R/S] 

PT  (MR)  = 

[R/S] 

105.64 

[R/S] 

CHANGE? 

0  [R/S] 

0.00 

Find  the  hovering  flight 

power  requirements  for  the  same 

OH-6A  under  the  original 

conditions  with  the  only  difference 

being  Vf  *  o . 

Keystrokes : 

Display: 

[R/S] 

FOR  V=? 

0  [R/S] 

F.P.A. (FF)=? 

5  [R/S] 

REC? 

1  [R/S] 

C*? 

.57  [R/S] 

R=? 

13.165  [R/S] 

b=? 

4  [R/S] 

CdO*? 

.009  [R/S] 

RV=? 

49.215  [R/S] 

H*? 

100  [R/S] 

W=? 

2,250  [R/S] 

D.A.*? 

500  [R/S] 

PI* 

[R/S] 

121.50 

[R/S] 

PI (TL) * 

[R/S] 

124.35 
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[R/S] 

8 

II 

o 

[R/S] 

PO= 

[R/S] 

39.12 

[R/S] 

PP= 

[R/S] 

0.00 

[R/S] 

PT  (MR)  = 

[R/S] 

163.47 

[R/S] 

CHANGE? 

0  [R/S] 

0  .00 

note  -  When 

program  "HOVER"  is  executed  for  this  case,  the 

outputs  are 

identical .  Examination 

of  equation  33  with 

Vf  *  o,  readily  explains  the  reason 

for  the  identical  re- 

suits . 

5 .  PROGRAMS 

&  SUBROUTINES  USED 

"AD" 

"FORFLT" 

"SD" 

"CG" 

"GE" 

"TL" 

"CT" 

"PI"  at  label  "PJ" 

"VI" 

"DATA" 

"  PO  " 

"DN" 

*tpp  »» 

"ECHORD" 

**  PT** 

6 .  PROGRAM 

LISTINGS 

PROGRAM 

0 1 ♦LBL  “FOR 
FLT  ” 

02  CLRG 
03  "F2" 

04  ASTO  31 
05  “FOR  V  =  ? 

M 

06  PROMPT 


07  1  .  ^  8894 
08  * 

09  STO  25 

10  “ F . P . 0 . < 
FF  >  =  ? “ 

1 1  PROMPT 

12  STO  26 
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13  XEQ  “DAT 


A" 


14^LBL 

"  F  2  “ 

15 

XEQ 

"AD” 

16 

XEQ 

"VT“ 

17 

XEQ 

"CT” 

18 

XEQ 

“TL” 

19 

XEQ 

~VI  “ 

20 

RCL 

25 

21 

RCL 

20 

22 

23 

XT2 

24 

2 

25 

/ 

26 

STO 

00 

27 

X*2 

28 

1 

29 

+ 

38 

SQRT 

31 

RCL 

00 

32 

— 

33 

SQRT 

34 

RCL 

20 

35 

* 

36 

RCL 

10 

37 

* 

38 

550 

39 

40 

XEQ 

“  P  J  " 

41 

XEQ 

••  SD  " 

42 

XEQ 

••  P  0  ** 

43 

XEQ 

p  p  •• 

44 

XEQ 

"PT  " 

45 

XEQ 

••  C  G  ” 

46 

END 
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VERTICAL  FLIGHT 


1.  PURPOSE 

This  main  program  computes  the  various  power  require¬ 
ments  in  terms  of  horsepower  for  vertical  flight  (vertical 
ascent) .  If  the  vertical  velocity,  V  ,  is  entered  as  zero, 
this  program  will  also  calculate  the  various  hover  power  re¬ 
quirements.  The  various  calculated  power  requirements  are 
displayed  as  follows: 

Display:  Explanation: 

PI=  induced  power 

PI(TL)=  induced  power  with  tip  losses 

PI(TL+GE)=  induced  power  with  tip  losses  plus  ground 
effect 

P0=  profile  power 

PP=  parasite  power 

PC=  climb  power 

PT (MR) *  total  power  for  the  main  rotor 


(36) 
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where: 


T  is  the  thrust  which  is  equal  to  the  weight,  W  (lb^) 
vv  is  the  induced  velocity  due  to  pumping  in  a 
vertical  climb  (ft/sec) 


Vv  is  the  steady  rate  of  climb  velocity  ( ft/sec} 

v.  is  the  induced  velocity  at  a  hover  (ft/sec) 

h  r ft-ibf 

P.  is  the  induced  power  required  to  climb  - 

1c  L  sec 


No  other  equations  are  found  in  the  actual  program  it¬ 
self.  Consult  the  various  subroutine  listings  for  the 
equations  used. 


FLOWCHART 


EXAMPLE  PROBLEMS  AND  USE*.  INSTRUCTIONS 


1  the  vertical  flight  power  requirements  for  an  SH-3H, 


King 
C  =  1.52  ft 
R  =  31  ft 
b  =  5 

W  =  18,000  lbs 
h  =  100  ft 

strokes : 

)]  [ALPHA]  VERFLT  [ALPHA] 
10  [R/S] 

[R/S] 

:tangular  Blade?  1  is  Yes 
l/S] 

!  [R/S] 

:r/s] 

i/S] 

>5  [R/S] 
i  5  7  [R/S] 

[R/S] 

100  [R/S] 

[R/S] 

5] 

51 

5] 


.A.  =  100  ft 
v  =  1,000  ft/sec 
=  360  ft2 

=  203  RPM  -  21.257  rads/sec 

Display : 

VERT  V=? 

F.P.A. (VF) =? 

REC? 

0  is  No) 

C=? 

R=? 

b=? 

CdO=? 

RV=? 

H=? 

W=? 

D . A.=? 

PI  = 

919  .60 
PI (TL) = 

939.83 


under  the  following  flight  conditions: 

C 
D 
V 
f 

n 
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[R/S] 

[R/S] 


GE=0 


P0= 


[R/S  1 
[R/S] 
[R/S] 
[R/S] 
[R/S] 
[R/S] 
[R/S] 
[R/S] 


344.97 

PP= 

3.59 

PC= 

545.45 

PT  (MR)  = 

1,833.84 

CHANGE? 


(Change  Data?  1  is  Yes,  0  is  No) 

1  [R/S]  C  ?V  b  R  W 

It  is  desired  at  this  point  to  taper  the  rotor  blades.  The 
new  main  rotor  blade  dimensions  are: 


C0  =  1.52 
C,  =  0.76 


a  =  .90 


To  observe  what  effect  this  change  will  have  on  the  vertical 
flight  power  requirements,  press  the  key  on  the  calculator 
keyboard  directly  beneath  the  variable  in  need  of  change. 

In  this  case  the  [Z+]  key  is  directly  beneath  the  C  in  the 


display : 

[1+]  REC? 
0  [R/S]  C0=? 
1.52  [R/S]  Cl=? 
.76  [R/S]  a=? 
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i  .9  (R/SJ 

. -  1 

i 

CEal.413  1 

(The  new  Equivalent  Chord 

is  1.413  ft)  j! 

(R/3] 

CHANGE?  ' 

1 

j  (Any  Further  Changes?  1 

is  Yes,  0  is  No)  |j 

0  [R/S] 

PI= 

[R/S] 

919.595  t]- 

[R/S] 

pi  (tl)  »  j: 

[R/S] 

939.828  | 

[R/S  ] 

GE=0  *j 

[R/S] 

P0= 

[R/S] 

320. 776 

[R/S] 

PP= 

[R/S] 

9.591  | 

j  [R/S] 

PC=  X 

j  ..VS] 

545.455 

[R/S] 

PT  (MR) » 

t 

|!  [R/S] 

1,809 .649 

I  [R/S] 

CHANGE? 

1 

1  0  [R/S] 

0.000 

■  Find  the  hovering  flight 

power  requirements  for  the  same 

■  SH-3H  under  the  original 

conditions  with  the  only  difference 

■  being  Vv  *  0 . 

■  Keystrokes: 

Display:  , 

I  [R/S] 

VERT  V*?  , 

1  °  [R/S1 

F.P.A.(VF)-?  | 
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REC? 


360  [R/S] 

1  [R/S] 

1-52  [R/S] 

31  [R/S] 

5  [R/S] 

.0095  [R/S] 

21.257  [R/S] 

100  [R/S] 

18,000  [R/S] 

100  [R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

0  [R/S] 

note  -  When  program  "HOVER 


C=? 

R=? 

b=? 

CdO=? 

RV=? 

H=? 

W=? 

D.A.=? 

PI= 

1,160.712 
PI (TL) = 

1,186.250 

GE=0 

PO= 

344.966 

PP= 

0  .000 
PT  (MR)  = 

1,531.217 

CHANGE? 

0.000 

is  executed  for  this  case,  the 


outputs  are  identical.  Examination  of  equations  35  and  36 
with  Vv  *  0,  readily  explains  the  reason  for  the  identical 
results . 
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5.  PROGRAMS  &  SUBROUTINES  USED 


"AD" 

"CG" 

"CT" 

"DATA" 

"DN" 

"ECHORD" 


"GE" 

"PC" 

"PI"  at  label  "PJ" 
"PO" 

”PP  " 

H  pip  If 


"SD" 

"TL" 

"VERFLT" 
"VI  • 

"VT” 


i 


6.  PROGRAM  LISTINGS 


PROGRAM 
0 1 ♦  LBL  ” VER 
FLT“ 

02  CLRG 
03  "VI" 

04  0STO  31 
05  “VERT  V= 
7  ” 

06  PROMPT 
07  60 
08  / 

09  STO  23 

10  “ F . P . P . < 
VF>*'?“ 

1 1  PROMPT 

12  STO  24 

13  XEQ  “DOT 
Q“ 

14 ♦LBL  “VI" 
15  XEQ  "pu¬ 
le  XEQ  “VT" 

17  XEQ  "CT" 

18  XEQ  "TL" 

19  XEQ  “VI" 

20  RCL  23 

21  2 


22 

/ 

23 

RCL 

20 

24 

/ 

25 

STO 

00 

26 

XT2 

27 

1 

28 

+ 

29 

SQRT 

30 

RCL 

00 

31 

- 

32 

RCL 

20 

33 

* 

34 

RCL 

10 

35 

♦ 

36 

558 

37 

/ 

38 

XEQ 

"  P  J  " 

39 

XEQ 

”  S  D  " 

40 

XEQ 

"PO" 

41 

XEQ 

M  P  P  '• 

42 

XEQ 

"PC" 

43 

XEQ 

"PT" 

44 

XEQ 

“  CG  " 

45 

END 

I 
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FLIGHT 


1.  PURPOSE 


This  main  program  computes  the  various  power  require¬ 
ments  in  terms  of  horsepower  for  forward  climbing  flight. 

If  the  vertical  velocity,  Vv,  is  entered  as  zero,  this 
program  will  compute  the  various  power  requirements  for  for¬ 
ward  (straight  and  level)  flight.  If  the  forward  velocity, 
Vf,  is  entered  as  zero,  this  program  will  compute  the  var¬ 
ious  power  requirements  for  vertical  flight.  If  both  the 
vertical  velocity,  Vv,  and  the  forward  velocity,  Vf,  are 
entered  as  zero,  this  program  will  compute  the  various 
power  requirements  for  hovering  flight.  The  various  cal¬ 
culated  power  requirements  are  displayed  as  follows: 

Display:  Explanation: 


PI* 


PI (TL) * 

PI (TL+GE) = 


PO¬ 

PP* 

PC= 

PT  (MR)  = 


induced  power 

induced  power  with  tip  losses 

induced  power  with  tip  losses  plus  ground 

effect 

profile  power 
parasite  power 
climb  power 

total  power  for  the  main  rotor 


2.  EQUATIONS 


Vf  (ft/sec)  =  Vf  (kts) 


(1.68894) 


(32) 
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(33) 


where : 


T  is  the  thrust  which  is  equal  to  the  weight,  W  (lb^) 

fft-lbf 

P.  is  the  induced  power - — 

i  sec 


Vv  is  the  vertical  velocity  (ft/sec) 

is  the  forward  velocity  (ft/sec) 

v-  is  the  vertical  component  of  the  induced 
XT 

velocity  (ft/sec) 


No  other  equations  are  found  in  the  actual  program  it¬ 
self.  Consult  the  various  subroutine  listings  for  the 


equations  used. 
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3 .  FLOWCHART 


Clear  Flag  01 


♦enters  Subroutine  "PI" 
at  label  "PJ" 


L29 


4.  EXAMPLE  PROBLEMS  AND  USER  INSTRUCTIONS 


Find  the  forward  climbing  flight  power  requirements  for  a 


UH-60A,  Blackhawk,  under  the 
C  =  1.73  ft 
R  *  26.835  ft 
b  *  4 

W  =  18,250  lbs 
h  »  200  ft 
D . A.  =  650  ft 


following  conditions: 

Q  *  258  RPM  -*■  27.02  rads/sec 

C,  =  .008 
ao 

Vv  =  500  ft/sec 

f  =  308  ft2 
v 

V  =  60  kts 
f  =  25.69  ft2 


Keystrokes:  Display: 

[XEQ]  [ALPHA]  FLIGHT  [ALPHA]  VERT  ONLY? 

(Execute  Vertical  Flight  Only?  1  is  Yes,  0  is  No) 
0  [R/S]  FOR  ONLY? 

(Execute  Forward  Flight  Only?  1  is  Yes,  0  is  No) 

0  [R/S]  BOTH 


(The  calculator  is  ready  to  do  the  combination  of  both, 
i.e.  forward  climbing  flight) 

[R/S] 

500  [R/S] 

308  [R/S] 

60  [R/S] 

23.69  [R/S] 

26.835  [R/S] 

18,250  [R/S] 


,r2RT  V=? 
F.P.A. (VF)=? 
FOR  V=? 
F.P.A. (FF)  =? 
R=? 

W»? 

D . A . *? 
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fri-nnMitwi 


REC? 


650  [R/S] 


(Rectangular  Blade? 


1  [R/S] 

1.73  [R/S] 
26.835  [R/S] 
4  [R/S] 

.008  [R/s] 
27.02  [R/S] 
200  [R/S] 
18,250  [R/S] 
650  [R/S] 
[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

0  [R/S] 


1  is  Yes,  0  is  No) 

C=? 

R=? 

b=? 

CdO=? 

RV=? 

H=? 

W=? 

D.A.a? 

PI= 

549.98 
PI (TL) = 
566.21 
GE=0 
PO= 

325.07 

PP= 

57.05 

PC= 

276.52 

PT  (MR)  = 

1224.85 

CHANGE? 


Find  the  vertical  flight  power  requirements  for  the  same 
UH-60A  under  the  same  conditions  with  the  only  exception 
being  that  the  forward  flight  velocity,  V^,  is  now  equal 
to  zero. 


Keystrokes: 

Display: 

[R/SJ 

VERT  ONLY? 

1  [R/S] 

VERT  V=? 

500  [R/S] 

F.P.A. ( VF) =? 

308  [R/S] 

R=? 

26.835  [R/S] 

W=? 

18,250  [R/S] 

D . A.=? 

650  [R/S] 

REC? 

1  [R/S] 

C=? 

1.73  [R/S 1 

R=»? 

26.835  [R/S] 

b=? 

4  [R/S] 

CdO=? 

.008  [R/S] 

RV=? 

27.02  [R/S] 

H=? 

200  [R/S] 

W=? 

18,250  [R/S] 

D . A.=? 

650  [R/S] 

PI* 

[R/S] 

1248.63 

[R/S] 

PI (TL) = 

[R/S] 

1285.50 

[R/S] 

GE=0 

[R/S] 

PO= 
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300.15 


[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

0  [R/S] 


PP= 

0.38 

PC= 

276  .52 
PT  (MR)  a 
1,862.54 
CHANGE? 
0.00 


note  -  When  program  "VERFLT"  is  executed  for  this  case,  the 
outputs  are  identical.  Examination  of  subroutine  "CF"  and 
subroutine  "VC"  with  Vf  =  0 ,  explains  the  reason  for  the 
identical  results . 


Find  the  forward  (straight  and  level)  flight  power  require¬ 
ments  for  the  same  UH-60  under  the  original  conditions  with 
the  only  exception  being  that  the  vertical  velocity,  V^,  is 
now  equal  to  zero. 


Keystrokes: 

[R/S] 

0  [R/S] 

1  [R/S] 

60  [R/S] 
25.69  [R/S] 
26.835  [R/S] 


Display : 

VERT  ONLY? 
FOR  ONLY? 

FOR  V=? 
F.P.A. (FF)=? 
R=  ? 

W=? 
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18,250  [R/S] 
650  [R/S] 
[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

0  [R/S] 


D .  A.= 
PI= 

558  .69 
PI (TL) = 
575.18 
GE=0 
PO= 

325  .07 
PP= 
56.68 
PT  (MR)  = 
956.93 
CHANGE? 
0.00 


note  -  When  program  "FORFLT "  is  executed  for  this  case,  the 

outputs  are  identical.  Examination  of  subroutine  "CF"  and 

subroutine  "VC"  with  V  =0,  explains  the  reason  for  the 

v 

identical  results. 


Find  the  hovering  flight  power  requirements  for  the  same 
UH-60  under  the  original  conditions  with  the  only  exceptions 

being  that  both  the  vertical  velocity,  V  ,  and  the  forward 

v 

velocity,  Vf,  are  equal  to  zero. 

Keystrokes:  Display: 

[R/S] 
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VERT  ONLY? 


3  [R/S] 


FOR  ONLY? 


)  [R/S] 

BOTH 

[R/S] 

VERT  V=? 

)  [R/S] 

F.P.A. (VF) 

JO 8  [R/S] 

FOR  V=? 

)  [R/S] 

F.P.A. (FF) 

!5 . 6 9  [R/S] 

R=? 

16.835  [R/S] 

W=? 

-8,250  [R/S] 

D  .  A .  =  ? 

150  [R/S] 

REC? 

■  [R/S] 

C=? 

-.73  [R/S] 

R=? 

16.835  [R/S] 

b=? 

1  [R/S] 

CdO=? 

008  [R/S] 

RV=? 

17.02  [R/S] 

H=? 

100  [R/S] 

W=? 

.8,250  [R/S] 

D . A.=? 

50  [R/S] 

PI* 

R/S] 

1,379 .98 

R/S] 

PI (TL) = 

R/S] 

1,420.73 

R/S] 

o 

li 

w 

o 

R/S] 

P0= 

R/S] 

300.15 

R/S] 

PP= 

135 


[R/S] 

[R/S] 

[R/S] 

[R/S] 

0  [R/S] 


0.00 
PT  (MR)  = 
1,720.88 
CHANGE? 
0.00 


note  -  When  program  "HOVER"  is  executed  for  this  case,  the 
outputs  are  identical.  Examination  of  subroutine  "CF"  and 
subroutine  "VC"  with  V^  =  0 ,  and  V  =  0 ,  explains  the  reason 
for  the  identical  results. 


The  user  of  program  "FLIGHT"  might  wonder  at  this  time 
as  to  why  it  is  even  necessary  to  have  programs  "HOVER", 
"FORFLT" ,  and  " VERFLT "  when  it  has  now  become  obvious  that 
program  "FLIGHT"  will  do  all  three  cases.  Three  reasons 
exist  to  substantiate  the  existence  of  these  other  three 
programs.  First,  program  "FLIGHT"  is  a  ’  ng  program  and, 
as  such,  requires  31  more  program  registers  than  any  of  the 
other  three.  Second,  program  "FLIGHT"  has  a  longer  running 
time  than  any  of  the  other  three.  Subroutine  "VC"  alone  will 
take  an  average  of  30  seconds  of  execution  time.  And  third, 
program  "FLIGHT"  involes  some  double  prompting  for  the  same 
input.  The  reasons  for  this  were  explained  in  subroutines 
"DATA  and  "CF" .  This  procedure  optimizes  the  use  of  data 
registers,  but  also  increases  the  execution  time. 
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Therefore,  if  the  user's  only  desire  is  to  execute 
pure  hover,  or  forward  flight,  or  vertical  flight  compu¬ 
tations,  then  one  of  these  other  programs  should  be  used. 
Both  calculator  memory  space  and  calculator  execution  time 
will  be  significantly  reduced. 


5.  PROGRAMS  &  SUBROUTINES  USED 


AD” 

"DN" 

"PI"  at  label  "PJ" 

"TL 

CF" 

"ECHORD" 

"PO" 

"VC 

CG" 

"FLIGHT" 

npp  n 

"VI 

CT" 

"GE" 

"  PT  " 

"VT 

DATA" 

"  PC  " 

"SD" 

6.  PROGRAM  LISTINGS 
PROGRAM 


0 1 ♦LBL  "FLI 
GHT  " 

02  CLRG 
03  "FI" 

04  ftSTO  31 
05  SF  01 
06  "VERT  ON 
LY?" 

07  PROMPT 
03  X>0? 

09  GTO  04 

10  "FOR  ONL 

y-i  .. 

1 1  PROMPT 

12  X>0? 

13  GTO  05 

14  CF  01 

15  "BOTH" 

16  PROMPT 
17^LBL  04 
13  "VERT  V* 

19  PROMPT 

20  60 


21 

22  STO  23 

23  "F.P.fl.C 
VF  >  — 

24  PROMPT 

25  STO  24 

26  FS?  01 

27  GTO  06 
23+LBL  05 

29  "FOR  V=? 

•• 

30  PROMPT 

31  1.63394 

32  * 

33  STO  25 

34  " F . P . ft . < 
FF>=?" 

35  PROMPT 

36  STO  26 
37*LBL  06 
33  CF  01 

39  XEQ  "CF" 

40  XEQ  "VC" 

41  XEQ  "DfiT 
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ft” 


42<*LBL 

"FI" 

43 

XEQ 

"AD" 

44 

XEQ 

“  VT“ 

45 

XEQ 

"CT” 

46 

XEQ 

“  TL  ” 

47 

RCL 

27 

43 

RCL 

10 

49 

♦ 

53 

550 

51 

/ 

52 

XEQ 

"  P  J  ” 

53 

XEQ 

••  S  D  " 

54 

XEQ 

-P  0” 

55 

XEQ 

"PP” 

56 

XEQ 

“PC" 

57 

XEQ 

”  P  T  ” 

58 

XEQ 

C  G  " 

59 

END 

i 

I  I 


TAILROTOR 


1 .  PURPOSE 

This  main  program  computes  the  various  tailrotor  power 
requirements  in  terms  of  horsepower  under  all  types  of 
flight  conditions.  The  tailrotor  program  must  be  executed 
immediately  following  the  execution  of  any  of  the  main 
rotor  programs  such  as  "HOVER",  "FORFLT" ,  "VERFLT" ,  or 
"FLIGHT".  The  tailrotor  program  recalls  and  uses  much  of 
the  information  that  the  previously  executed  program  has  put 
into  storage.  By  doing  this,  the  tailrotor  program  is 
shortened.  There  is  no  need  for  regurgitation  of  input  data 
and  calculations  for  the  main  rotor,  which  is  the  starting 
point  for  all  tailrotor  computations.  The  various  calculated 
power  requirements  are  displayed  as  follows: 

Display:  Explanation: 

PI=  induced  power  for  the  tailrotor 

PI (TL) =  induced  power  with  tip  losses  for  the  tail¬ 

rotor 

P0=  profile  power  for  the  tailrotor 

PT (TR) =  total  power  for  the  tailrotor 

PT (MR) =  total  power  for  the  main  rotor 

PT (ACFT) *  total  power  for  the  aircraft 

2 .  EQUATIONS 


P. 

1  (tr) 


(37) 


139 


(38) 


Vi  .  .  V  J(V)' 

Lf,._,  2  l\  2  ) 


{2 a  1.  n, 

\  D(tr)  tr  (mr)V 


*s  1  h 


'(tr)  '  K(tr)itra(Br)p) 


if  "  T(tr)  *  vif 
(tr)  £ ( tr) 


-  io  /  C 


r(tr,-d0(tr)p^(tr)vT(tr) 


1  +4 


■<ItJ 


where: 


is  the  induced  velocity  of  the  tailrotor 

^  ( tr ) 

m  forward  flight  (ft/sec) 

is  the  induced  power  required  by  tailrotor 
^  <  *--r\  [ft— lb»1 


forward  flight  — — — j 

?0  is  the  profile  power  required  by  the  tail- 

f(tr)  fft-lbf ‘ 

rotor  in  forward  flight  1 - - 

L  sec 

-d  is  the  average  profile  drag  coefficient 

0  (tr) 

of  the  tailrotor 

?h  is  the  total  power  required  by  the  main  rotor 

<m*)  fft-lb/ 

in  hover  - — 

.  sec 

U  is  the  disc  area  of  the  tailrotor  (ft2) 
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v_ 


vi 


(tr) 

(mr) 

(tr) 


P. 


1  ( tr) 


(tr) 

(mr) 


(tr) 

(mr) 


is  the  tip  velocity  of  the  tailrotor  (ft/sec) 
is  the  tip  velocity  of  the  main  rotor  (ft/sec) 
is  the  induced  velocity  of  the  tailrotor  at 
a  hover  (ft/sec) 

is  the  induced  power  required  by  the  tail- 

rtt-ibfi 


rotor  at  a  hover 


sec 


is  the  required  thrust  for  the  tailrotor  (lbf) 

is  the  rotational  velocity  of  the  main  rotor 

system  (radians/sec) 

is  the  solidity  of  the  tailrotor 

is  the  total  power  required  by  the  main 


rotor 


f t-lbc 


sec 


is  the  tail  length,  the  distance  from  the  center 
of  the  main  rotor  system  to  the  center  of  the 
tailrotor  system  (ft) 

is  the  total  power  required  by  the  main  rotor 

rft-lb. 


in  forward  flight 


l- 


sec 


V 


^  is  the  forward  velocity  of  the  helicopter  (ft/sec) 


is  the  density  of  the  air 


lb-sec2 


l  ft1 
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FLOWCHART 


Recall  PT (rar)  from  R30 

ft  (mr)  from  R2 
while  solving 
equation  for  Tfcr 


Store  Answer  into  Rj  9 


next  page 


143 


Display  Answer  "P0= 


i 

Store  Answer  into  R2 1 


Recall  P.  from  R, „ 

1TL  1  8 

PQ  from  R21 

while  solving 

equation  for  P,T,(tr)  (hp) 


Execute  Subroutine  "CG" 


♦enters  Subroutine  "PI 
at  Label  "PJ" 


4.  EXAMPLE  PROBLEMS  AND  USER  INSTRUCTIONS 

Find  the  tailrotor  power  requirements  for  an  SH-3H,  Sea  King, 
conducting  a  "LAMPS"  mission  while  hovering  above  the  surface 
of  the  ocean  under  the  following  flight  conditions: 
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W  =  18,650  lbs 


h  =  54 

ft 

D.A.  = 

0  ft 

A.  = 

tr 

36.6  ft 

Main  Rotor 

Data : 

Tail  Rotor  Data: 

C  -  X. 

52  ft 

C  = 

0.61  ft 

R  =  31 

ft 

R  = 

5.3  ft 

b  =  5 

b  = 

5 

li 

o 

lu 

.0095 

=  .0105 

ft  =  203  RPM-*  21.26  rads 

ft  = 

124  3  RPM-*  130.16 

rad 

sec 

sec 

Keystrokes : 

Display: 

[XEQ]  [ALPHA]  HOVER  [ALPHA] 

REC? 

1  [R/S] 

C=? 

1.52  [R/S] 

R*? 

31  [R/S] 

b=? 

5  [R/S] 

CdO=? 

.0095  [R/S] 

RV=? 

21.26  [R/S] 

H=? 

54  [R/S] 

W=? 

18,650  [R/S] 

D ,A.=? 

0  [R/S] 

PI* 

[R/S] 

1222.36 

[R/S] 

PI  (TL)  * 

[R/S] 

1249.70 

[R/S] 

PI (TL+GE) = 

[R/S] 

1216.90 

[R/S] 

PO= 

[R/S] 

346.12 

[R/S] 

PT  (MR)  = 

[R/S] 

1563.02 

[R/S] 

CHANGE? 

0  [R/S] 

0  .00 

[XEQ]  [ALPHA]  TR  [ALPHA] 

TR  DATA 

Subroutine  "DATA"  is  about  to 

be  executed.  This  prompt 

tells  the  user  that  the  tail 

rotor  data  should  now  be 

entered. 

[R/S] 

REC? 

1  [R/S] 

C=? 

.61  [R/S] 

R=? 

5.3  [R/S] 

b=? 

5  [R/S] 

CdO=? 

.0105  [R/S] 

RV=? 

130.16  [R/S] 

H=? 

54  [R/S] 

W=? 

18,650  [R/S] 

D.A.=? 

0  [R/S] 

L (TAIL) = 

36.6  [R/S] 

PI  = 

[R/S] 

103.08 

[R/S] 

PI (TL) = 

[R/S] 

106  .25 

[R/S] 

GE=0 

[R/S] 

PO= 
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30.10 


[R/S] 

[R/S] 

30.10 

PT (TR) = 

[R/S  3 

136.35 

[R/S] 

PT  (MR)  = 

[R/S] 

1563.02 

[R/S] 

PT (ACFT) = 

[R/S] 

1699.37 

[R/S] 

CHANGE? 

1  [R/S] 

C  RV  b  R  W 

It  is  desired  at 

this 

point  to  increase  the  length  of  the 

tail,  £  ,  from 

tr 

36.6 

to  41.6  feet.  To  observe  what  effect 

this  change  will 

have 

on  the  tailrotor  power  requirements 

flag  04  must  be 

set  to  return  to  the  main  program  where  it 

then  becomes  possible 

to  change  l tr .  The  flowchart  for  sub- 

routine  "CG"  depicts 

this  process.  In  order  to  initiate 

this  procedure. 

pick 

a  variable  and  input  its  original  value 

In  this  example. 

b  is 

used: 

f/x] 

b=? 

5  [R/S] 

CHANGE? 

0  [R/S] 

L (TAIL) =? 

41.6  [R/S] 

PI  = 

[R/S] 

85.07 

[R/S] 

PI (TL) = 

[R/S] 

87.51 

[R/S] 

GE=0 

[R/S] 

P0= 
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30.10 


[R/Sl 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

0  [R/S] 


h  =  500ft,  and  ff  =  31.27  ft2, 
required. 

Keystrokes : 

[XEQ]  [ALPHA]  FORFLT  [ALPHA] 
100  [R/S] 

31.27  [R/S] 

1  [R/S] 

1.52  [R/S] 

31  [R/S] 

5  [R/S] 

.0095  [R/S] 

21.26  [R/S] 

500  [R/S] 

18,650  [R/S] 

0  [R/S] 


PT(TR)  = 

117.61 
PT (MR) = 

1563.02 
PT (ACFT] = 

1680 .63 
CHANGE? 

0  .00 

100  kts 
Find  the  tailrotor  power 

Display : 

FOR  V=? 

F.P.A. (FF)=? 

REC? 

C=? 

R=? 

b=? 

CdO=? 

RV=? 

H=? 

W=? 

D.A.=? 

PI  = 


The  same  SH-3H  is  now  returning  to  ship  with  = 
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[R/S] 

14.25 

[R/S] 

PO= 

[R/S] 

37.31 

[R/S] 

PT  (TR)  = 

[R/S] 

51.56 

[R/S] 

PT  ( MR)  = 

[R/S] 

1034.71 

[R/S] 

PT (AC FT) = 

[R/S] 

1086  .27 

[R/S] 

CHANGE? 

0  [R/S] 

0.00 

note  -  the  CHANGE?  process  can  be  executed  as  many  times  as 
the  user  may  desire,  but  the  whole  of  program  "TR"  can  only 
be  executed  once.  By  examining  the  flowchart  for  this  pro¬ 
gram,  it  can  be  seen  that  several  main  rotor  data  elements 
are  moved  al  out  in  the  storage  registers.  This  is  done  to 
conserve  program  memory.  Therefore,  it  becomes  necessary 
to  go  back  and  execute  one  of  the  other  main  rotor  programs 
before  again  attempting  to  execute  program  "TR"  in  its 
entirity . 


5.  PROGRAMS  &  SUBROUTINES  USED 


AD" 

"ECHORD" 

"TL 

CG" 

"GE" 

"TR 

CT" 

"PI"  at  label  "PJ" 

"VI 

DATA" 

"PO" 

"VT 

DN" 

"SD" 
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6.  PROGRAM  LISTINGS 


PROGRAM 

0 1 ♦LBL 

"TR" 

02 

••  t  2  ” 

03 

fiSTO 

31 

04 

RCL 

03 

05 

STO 

23 

06 

RCL 

13 

07 

STO 

26 

03 

“TR 

DQTQ 

09 

PROMPT 

10 

XEQ 

"DOT 

1 " 

1  1 

1000 

12 

STO 

09 

1 3 ♦LBL 

..  T2“ 

14 

"  L  <  T  Q  I  L  > 

15 

PROMPT 

16 

STO 

24 

17 

RCL 

30 

18 

550 

19 

* 

20 

RCL 

23 

21 

/ 

22 

RCL 

24 

23 

/ 

24 

STO 

10 

25 

XEQ 

"«D" 

26 

XEQ 

"VT" 

27 

XEQ 

"  C  T  " 

28 

XEQ 

"TL" 

29 

XEQ 

••  S  D 

30 

XEQ 

"  V  I  - 

3  1 

RCL 

25 

32 

X>0? 

33 

GTO 

01 

34 

RCL 

10 

35 

RCL 

20 

36 

4c 

37 

550 

33 

39 

XEQ 

p  J  •• 

40 

XEQ 

po- 

41 

GTO 

02 

42^LBL 

01 

43 

RCL 

1 1 

44 

2 

45 

4c 

46 

RCL 

12 

47 

4c 

48 

RCL 

24 

49 

4« 

50 

RCL 

23 

51 

4t 

52 

XT2 

53 

1  /X 

54 

RCL 

30 

55 

550 

56 

¥ 

57 

XT2 

53 

4C 

59 

RCL 

25 

60 

XT2 

61 

2 

62 

/ 

63 

STO 

00 

64 

XT2 

65 

+ 

66 

SORT 

67 

RCL 

00 

68 

- 

69 

SORT 

70 

RCL 

10 

71 

72 

550 

73 

74 

■■  p  I  = 

■  ■ 

75 

PROMPT 

76 

VIEW 

77 

STOP 

78 

RCL 

15 

79 

/ 

30 

"PI <TL 

3  1 

PROMPT 

82 

VIEW 

X 

S3 

STOP 

34 

STO 

18 

85 

RCL 

25 

86 

RCL 

26 

87 

/ 

88 

XT2 

89 

RCL 

26 

90 

XT2 
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91 

* 

92 

4.3 

93 

* 

94 

RCL 

13 

95 

XT2 

96 

x 

97 

1 

98 

+ 

99 

RCL 

13 

100 

3 

101 

YTX 

102 

RCL 

12 

103 

* 

104 

RCL 

1  1 

105 

* 

106 

RCL 

07 

107 

* 

103 

RCL 

19 

109 

* 

110 

4400 

111 

s 

112 

* 

113 

" PO * 

114 

PROMPT 

115 

VIEW 

X 

116 

STOP 

117 

STO 

21 

1  18^LBL 

02 

119 

RCL 

13 

120 

RCL 

21 

121 

+ 

122 

•• 

" PT  <  TR 

123 

PROMPT 

124 

VIEW 

X 

125 

STOP 

126 

RCL 

30 

127 

“ PT  <  MR 

128 

PROMPT 

129 

VIEW 

X 

130 

STOP 

131 

+ 

132 

"  PT<  flC 

>=  •• 

133  PROMPT 

134  VIEW  X 

135  STOP 

136  XEQ  "CG 

137  END 
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AUTOROTATION 


1.  PURPOSE 

This  main  program  computes  several  values  for  a  single 

rotor  helicopter  in  vertical  and  forward  flight  autorotation. 

The  computed  values  are  displayed  as  follows: 

Display:  Explanation: 

W=  vertical  velocity  in  a  vertical  autoro¬ 

tation  (ft/min) 

VF (MIN . R.O .D . ) =  forward  autorotative  flight  velocity  for 

minimum  autorotative  rate  of  descent  (kts) 

VV (MIN.R.O.D. ) —  vertical  autorotative  velocity  (ft/min) 

at  the  forward  autorotative  flight  veloc¬ 
ity  for  minimum  autorotative  rate  of 
descent 

d (HOR. GLIDE) »  horizontal  distance  travelled  on  the 

ground  at  the  forward  autorotative  flight 
velocity  for  minimum  rate  of  descent  (ft) 

2 .  EQUATIONS 

CL  =  OKj/K,)1* 

Si  =  Ki?l2  +  K. 

f  m  <CiVcd2)-c 

4 

W 

2  *  P  *  Ad • ? 


(43) 

(44) 

(45) 

(46) 
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(47) 

(48) 

(49) 


(50) 

(51) 

(52) 


where : 

Cl  is  the  average  coefficient  of  lift 

Cd  is  the  average  coefficient  of  drag 

Kj  is  a  real  number  coefficient  called  the  lift 

coefficient  multiplier  in  drag  coefficient  terms 

K,  is  a  real  number  coefficient  equal  to  Cj 
2  ao 

is  the  vertical  velocity  in  a  vertical  autorota¬ 
tion  (ft/min) 

Ajj  is  the  area  of  the  rotor  disc  (ft2) 
o  is  the  solidity  of  the  main  rotor  system 
p  is  the  density  of  the  air 

h  is  the  height  of  the  rotor  system  above  the 
ground  (ft) 
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V-,  .  is  the  forward  autorotative  flight 

i  unin  rod) 

velocity  for  minimum  autorotative  rate 
of  descent  (kts) 

Vv  (min  ROD)  the  verticai  autorotative  velocity 

(ft/min)  at  the  forward  autorotative 
flight  velocity  for  minimum  autorotative 
rate  of  descent 

d,,  ,  .  ,  ,  is  the  horizontal  distance  travelled  on 

(hor  glide) 

the  ground  (ft)  at  the  forward  autoro¬ 
tative  flight  velocity  for  minimum  rate 
of  descent 

RPM  is  the  rotational  velocity  of  the  main  rotor 
system  in  revolutions/minute 
F  is  a  non-dimensional  coefficient 

f  is  a  non-dimensional  coefficient 

W  is  the  weight  of  the  helicopter  (lbs) 

R  is  the  radius  of  the  rotor  system  (ft) 

y  is  the  descent  angle  for  minimum  descent 
rate  (degrees) 
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3 .  FLOW  CHART 


next  page  ■* 


No 


1  Subtract  1.0  I 

Recall  F  from  Rlu 
and  solve  Glauert 
Equation  for  f 

- j 


Recall  p 

from  Rj  j 

||  Execute  Subroutine  "AD"  j| 

Solve  equation  for 

Vv  (ft/min) 

Recall  F  from  R, 4 
and  solve  Momentum 
Equation  for  f" 

7 - 


E 


Display  Answer  " W= ' 


Recall  S  f 
R  f 

while  sol\ 
equation  i 

Vf(min  ROE 

•rom  R,8 

from  R3 5 

ring 

for 

5)  (kts) 

Display  Answer 
"VF(MIN.R.O.D.y=" 

_ 

Solve  equation  for 

V„,  .  (ft/min) 

v(mm  ROD)  ' 

next 

page  -*■ 
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4.  EXAMPLE  PROBLEMS  AND  USER  INSTRUCTIONS 


note  -  if  the  display  "F="  should  appear,  an  error  has  been 
made  in  either  the  design  or  the  input  data  itself.  This 
will  only  occur  when  F<0 .  Neither  this  program  nor  the 
theory  used  will  be  able  to  calculate  results  for  this  situa¬ 
tion. 

For  a  UH-1H ,  Iroquois,  with  the  following  characteristics: 

W  =  8,200  lbs  NACA  0012  Main  Rotor  Blade: 


h  ■  1,500  ft 


R  =  24  ft 


b  =  2 


C  =  1.75  ft 


D.A.  *  1,500  ft 


.0098  +  .0120C  2 

L 
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ft  =  324  RPM  •*  3-  527  radians/sec 


find  the  rate  of  descent  in  a  vertical  autorotation,  Vv;  the 
forward  flight  autorotative  velocity  for  minimum  rate  of  de¬ 
scent,  rod)  ;  the  vertica^-  velocity  for  the  minimum 

rate  of  descent,  V„,  .  DAn. ;  and  the  horizontal  glide  dis- 

vimin  ROD; 

tance  travelled  during  the  autorotation,  d.,  ,  .  ,  ,  . 

*  (hor  glide) 

Keystrokes:  Display: 


[XEQ]  [ALPHA]  AUTO  [ALPHA] 

1  [R/S] 

1.75  [R/S] 

24  [R/S] 

2  [R/S] 

.0098  [R/S] 

33.927  [R/S] 

1,500  [R/S] 

8,200  [R/S] 

1,500  [R/S] 

.012  [R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 


REC? 

C=? 

R=? 

b=? 

CdO=? 

RV=? 

H=? 

W=? 

D . A. =? 

LCM=? 

W= 

2885.69 

VF (MIN . R.O .D . ) = 
67.92 

W  ( MIN  .  R .  0  .  D . )  = 
2043.85 
d (HOR. GLIDE) = 

5031.70 


[R/S] 

[R/S] 
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CHANGE? 


It  is  now  desired  to  increase  the  weight  from  8,200  to 
9,500  lbs: 


1  [R/S] 

[LN] 

9,500  [R/S] 

0  [R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

It  is  now  desired  to  decrease 


C  RV  b  R  W 
W=? 

CHANGE? 

VV=? 

3106  .02 

VF (MIN.R.O.D.)  — 

67.42 

W (MIN.R.O.D . ) = 
2043.85 
d 'HOR. GLIDE) = 

5031.70 

CHANGE? 

the  rotor  rotational  velocity 


from  33.927  to  32.88  radians/second.  This  is  314  RPM. 


1  [R/S] 
[1/x] 

32.88  [R/S] 
0  [R/S] 
[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 


C  RV  b  R  W 
RV=? 

CHANGE? 

W= 

3106.02 

VF(MIN.R.O.D.)= 

65.34 

W(  MIN.R.O.D.)  = 
1980.77 
d (HOR. GLIDE)  = 
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[R/S] 

[R/S] 


5031.70 


CHANGE? 

0  [R/S]  0.00 

note  -  A  reduced  rate  of  descent  during  a  forward  flight 
autorotation  can  be  achieved  by  attaining  as  low  a  rotor 
speed  as  possible  without  exceeding  published  limits  (stall) . 
Below  a  certain  rotational  velocity,  rate  of  descent  in¬ 
creases  again,  and  the  higher  the  weight,  the  higher  the 
RPM  at  which  this  reversal  occurs.  [Ref.  6]  Also,  the 
forward  speed  for  minimum  descent  rate  is  not  the  same 
forward  speed  for  maximum  glide  distance.  The  forward  speed 
for  maximum  glide  distance  will  be  higher  than  the  forward 
speed  for  minimum  descent  rate.  This  "stretching  the  glide" 
not  only  results  in  a  longer  horizontal  glide  distance,  but 
also  results  in  an  increased  rate  of  descent.  [Ref.  6] 

5.  PROGRAMS  &  SUBROUTINES  USED 


AUTO” 

"DN" 

AD” 

"E CHORD 

CG” 

"SD" 

DATA" 

6.  PROGRAM  LISTINGS 

PROGRAM 
0 1 ♦LBL  "PUT 

o- 

02  CLRG 
03  "PI" 

04  PSTO  31 
05  XEQ  "DPT 


P" 

06  ” LCM=  ? " 

07  PROMPT 
08  STO  00 
09^LBL  "PI 
10  RCL  00 
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1 1 

i/X 

12 

3 

13 

* 

14 

RCL 

07 

15 

* 

16 

SORT 

17 

STO 

15 

IS 

XT  2 

19 

RCL 

00 

29 

* 

21 

RCL 

07 

22 

+ 

23 

XT  2 

24 

1/X 

25 

RCL 

15 

26 

3 

27 

YTX 

2S 

* 

29 

XEQ 

“3 

30 

* 

31 

4 

32 

./ 

33 

STO 

14 

34 

X<=07 

35 

GTO 

01 

36 

1 

37 

- 

33 

X>0? 

39 

GTO 

02 

40 

2 

41 

42 

XT2 

43 

1  -  X 

44 

RCL 

14 

45 

* 

46 

GTO 

03 

47-*LBL 

02 

43 

RCL 

14 

49 

■w» 

50 

* 

51 

SORT 

52 

CHS 

53 

RCL 

14 

54 

2 

55 

* 

56 

+ 

57 

RCL 

14 

58 

4 

59 

* 

60 

3 

6  1 

- 

62 

y 

63^LBL  03 

64 

RCL  1  1 

65 

66 

XEQ  "fiD" 

67 

* 

68 

2 

69 

* 

70 

l'X 

71 

RCL  10 

72 

* 

73 

SORT 

74 

60 

75 

* 

7  6 

“  VV=" 

77 

PROMPT 

73 

VIEW  X 

79 

STOP 

80 

RCL  08 

31 

RCL  05 

32 

* 

83 

. 0827985 

84 

* 

35 

“ VFCMIN. 

R.  0. 

D-  >  =  - 

86 

PROMPT 

87 

VIEW  X 

88 

STOP 

39 

30. 3158 

90 

* 

91 

- VV<MIN. 

R.  0. 

D.  >  =  " 

92 

PROMPT 

93 

VIEW  X 

94 

STOP 

95 

RCL  09 

96 

. 2981 1 

9  7 

98 

“ d<  HOR . G 

L I DE  >  =  " 

99 

PROMPT 

130 

VIEW  X 

181 

STOP 

102 

XEQ  -CG" 

103 

GTO  04 

104^LBL  01 

105 

”  F  =  “ 

106 

ORCL  X 

107 

RVIEW 

103^LBL  04 

109 

END 
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TANDEM 


PURPOSE 

This  main  program  computes  the  various  power  require- 
terms  of  horsepower  for  a  tandem  rotor  aircraft  in  either 
vering  flight  or  forward  (straight  and  level)  flight.  The 
rious  calculated  power  requirements  are  displayed  as 
Hows : 

splay:  Explanation: 

(TL) =  induced  power  with  tip  losses 

(TL+GE)=  induced  power  with  tip  losses  plus  ground 

effect 


i=  profile  power  for  a  single  rotor  system 

> (TDM) —  profile  power  for  the  tandem  rotor  system 

'  (TDM) =  total  power  for  the  tandem  rotor  system 


EQUATIONS 


Pm  =  P .  +  P  -r  P 
T  l  o  o 


(20) 


tere : 

PT  is  the  total  power  required 
P^  is  the  induced  power  required 
PQ  is  the  profile  power  required 
Pp  is  the  parasite  power  required 

No  other  equations  are  found  in  the  program.  Consult 
te  subroutine  listings  for  the  various  equations  used. 
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Clear  all  Storage  Registers 


Alpha  Store 

T1  into  R  3 j 

Execute  Subroutine  "DATA” 

i  Execute  Subroutine  "VT" 

— 

_ 

Execute  Subroutine  ”AD" 

Execute  Subroutine  "CT" 

Divide  CT 
Store  Answe 

by  2  and 
r  into  R,„ 

Execute  Subroutine  "TL" 


Prompt  for  and  convert 
Vf  from  (kts)  to  (ft/sec) 
Store  into  R, 

'  _ - 

Prompt  for  and 
input  f  into  R 


4.  EXAMPLE  PROBLEMS  AND  USER  INSTRUCTIONS 


Find  the  hover  power  requirements  for  a  CH-47D,  Chinook, 

under  the  following  conditions: 

C  »  2.667  ft  n  =  225  RPM  -*■  23.56  rads/sec 

R  =  30.0  ft  C,  =  .008 

do 

b  =  3  h  =  35  ft 

W  =  45,000  lbs  D.A.  =  1,500  ft 

d  =  38.917  ft 


Keystrokes:  Display: 

[XEQ]  [ALPHA]  TANDEM  [ALPHA]  REC? 

(Rectangular  Blade?  1  is  Yes,  0  is  No) 


1  [R/S] 

2.667  [R/S] 

30  [R/S] 

3  [R/S] 

.008  [R/S] 

23.56  [R/S] 

35  [R/S] 

45,000  [R/S] 

1,500  [R/S] 

38.917  [R/S] 

(Execute  Hovering  Flight 
1  [R/S] 

[R/S] 

[R/S] 


C=? 

R=? 

b=? 

CdO=? 

RV=? 

H=? 

W=? 

D.A. a? 
d=? 

HOVER? 

Only?  1  is  Yes,  0  is  No) 
PI (TL) = 
4,263.48 
PI (TL+GE) = 
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[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

(Change  Data?  1  is  Yes,  0  is  No) 
1  [R/S] 


3,957.54 
PO 
350.46 
PO (TDM) = 

700  .93 
PT (TDM) = 
4,658.47 
CHANGE? 

C  RV  b  R  W 


It  is  desired  at  this  point  to  increase  the  number  of  rotor 
blades  per  rotor  system  from  3  to  4 .  To  observe  what  effect 
this  change  will  have  on  the  hover  power  requirements,  press 
the  key  on  the  calculator  keyboard  directly  beneath  the  var¬ 
iable  in  need  of  change.  In  this  case  the  [/x]  key  is  di¬ 
rectly  beneath  the  b  in  the  display: 

[✓x]  b=? 

4  [R/S]  CHANGE? 


(Any  Further  Changes?  1  is  Yes,  0  is  No) 

0  [R/S]  d=? 

The  calculator  has  returned  to  the  top  of  the  main  program 
and  now  presents  the  opportunity  to  change  the  distance  be¬ 
tween  the  rotor  shafts,  d.  In  this  example,  d  remains  the 
same : 


38.917  [R/S] 


HOVER? 
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1  [R/S] 

PI (TL) = 

[R/S] 

4,227.80 

[R/S] 

PI (TL+GE) = 

[R/S] 

3,924.43 

[R/S] 

PO= 

[R/S] 

467.28 

[R/S] 

PCX TDM)  = 

[R/S] 

934.57 

[R/S] 

PT ( TDM) = 

[R/S] 

4,859.00 

[R/S] 

CHANGE? 

0  [R/S] 

0.00 

Find  the  forward  flight 

(straight  and  level)  power  require 

ments  for  a  CH-46E,  Sea 

Knight,  under  the  following  flight 

conditions : 

C  =  1.5625  ft 

n  =  264  RPM  -*■  27.64  rads/sec 

R  =  25.5  ft 

C,  =  .009 
a0 

b  =  3 

D . A.  =  2,000  ft 

W  =  22,000  lbs 

Vf  =  100  kts 

d  =  33.33  ft 

ff  =  44.3  ft2 

h  =  2,000  ft 

Keystrokes : 

Display: 

[R/S] 

REC? 

1  [R/S] 

C=? 

1.5625  [R/S] 

R=? 
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uoMlMMkl 


25.5  [R /Si 
3  [R/S] 

.009  [R/S] 

27.64  [R/S] 

2,000  [R/S] 

22,000  [R/S] 

2,000  [R/S] 

33.33  [R/S] 

0  [R/S] 

100  [R/S] 

44.3  [R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

1  [R/S] 

It  is  desired  at  this  point 


b=? 

CdO=? 

RV=? 

H=? 

W=? 

D.A.a? 

da? 

HOVER? 

FOR  V=? 

F.P.A. (FF) a? 

PI(TL)= 

3,235.14 

GE=0 

PO= 

238.65 
PO (TDM) a 
477.30 
PP= 

434.78 
PT (TDM) a 
4,147.22 
CHANGE? 

C  RV  b  R  W 
decrease  the  forward  flight 


velocity,  Vf,  from  100  to  50  knots.  To  observe  what  effect 
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this  change  will  have  on  the  forward  flight  power  require' 
ments  flag  04  must  be  set  to  return  to  the  main  program 
where  it  then  becomes  possible  to  change  V  .  The  flow¬ 
chart  for  subroutine  "CGH  depicts  this  process.  In  order 
to  initiate  this  procedure,  pick  a  variable  and  input  its 
original  value.  In  this  example,  W  is  used: 


[LN] 

22,000  [R/S] 
0  [R/S ] 

33.33  [R/S] 

0  [R/S] 

SO  [R/S] 

44.3  [R/S] 
[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

0  [R/S] 


W=? 

CHANGE? 

d=? 

HOVER? 

FOR  V=? 

F.P.A. (FF) *? 

PI (TL) = 

3,085.23 

GE=0 

PO= 

203.54 
PO (TDM) = 
407.08 
PP= 

54.35 
PT (TDM) = 
3,546.66 
CHANGE? 


0.00 


PROGRAMS 

&  SUBROUTINES  USED 

"AD" 

"ECHORD" 

HSD" 

"AE" 

"  GE" 

"TANDEM 

"CG" 

"PI"  at  label  "TJ" 

"TL" 

"CT" 

Hp  JIJ  »» 

"VT" 

"DATA" 

"PO" 

"DN" 

«PP  w 

PROGRAM  LISTINGS 


PROGRAM 


0 1 ♦LBL 

"TAN 

DEM 

•a 

02 

CLRG 

03 

-  T 1  " 

04 

ASTO 

31 

05 

XEQ 

"DAT 

A" 

06^LBL 

"  T  1  " 

07 

XEQ 

"VT" 

03 

XEQ 

"AD" 

09 

XEQ 

"CT" 

10 

2 

1  1 

12 

STO 

14 

13 

XEQ 

"TL" 

14 

XEQ 

"  AE" 

15 

"HOVER?" 

16 

PROMPT 

17 

X>0? 

13 

GTO 

02 

19 

"FOR 

V  =  ? 

20 

PROMPT 

21 

1 . 68894 

22 

* 

23 

STO 

25 

24 

"F.  P 

.  A.  < 

FF  >= 

s?" 

25 

PROMPT 

26 

STO 

26 

27^LBL  02 

28 

XEQ  "PIT 

29 

XEQ  "AD" 

30 

XEQ  ~SD“ 

31 

XEQ  "PO" 

32 

2 

33 

* 

34 

_  fa 

“ PO<  TDM  > 

35 

PROMPT 

36 

VIEW  X 

37 

STOP 

38 

STO  21 

39 

RCL  25 

40 

X  =  0? 

41 

GTO  03 

42 

XEQ  "PP" 

43»LBL  03 

44 

RCL  21 

45 

+ 

46 

RCL  18 

47 

48 

_  f  ■ 

" PT<  TDM  > 

49 

PROMPT 

50 

VIEW  X 

51 

STOP 

52 

XEQ  "CG" 

53 

END 

CHECKS 


1.  PURPOSE 

This  program  performs  a  short  series  of  checks  on 
several  important  parameters.  It  is  executed  immediately 
following  the  execution  of  one  of  the  main  programs.  This 
program  recalls  and  uses  data  that  the  previously  executed 
program  has  put  into  storage.  The  various  parameters  that 
are  checked  are  displayed  as  follows: 


Display: 

SOLID= 

U* 

M(TIP) = 

D.L.= 


Explanation: 

the  solidity  of  the  rotor  system 
the  advance  ratio 

the  Mach  Number  at  the  tip  of  the  advancing 
rotor  blade 

the  disc  loading  of  the  rotor  system 


2.  EQUATIONS 


a  =  /y  • 

gc • R*T ( °R) 

(53) 

T(°K)  = 

T(°C)  +  273.16 

(54) 

T(°R)  = 

T(°K)  r  0.5555 

(55) 

„ 

T 

+  VT 
a 

(56) 

vf 

(57) 

DISC  LOADING  * 

(58) 

'D 
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where: 


T(°C) 

is 

the 

temperature 

in 

degrees 

centigrade 

T(°K) 

is 

the 

temperature 

in 

degrees 

kelvin 

T  { °R) 

is 

the 

temperature 

in 

degrees 

rankine 

gc  is  the  gravitational  constant  32.174 

lbf-sec2 

Aq  is  the  rotor  disc  area  (ft2) 

is  the  Mach  Number  at  the  tip  of  the  advancing 
rotor  blade 

Vj  is  the  forward  velocity  of  the  helicopter  (ft/sec) 

V  is  the  tip  speed  of  the  rotor  blade  (ft/sec) 

^  p  « 

R  is  the  gas  constant  for  air  53.3  f t-lbf 

lb  -°R 

W  is  the  weight  (lbs)  L.  ra 

y  is  the  advance  ratio 
a  is  the  sonic  velocity  (ft/sec) 

Y  is  the  ratio  of  specific  heats  (1.4  for  air) 
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4.  EXAMPLE  PROBLEMS  AND  USER  INSTRUCTIONS 


Execute  program  "FORFLT”  for  the  CH-53E  under  the  following 
characteristics  and  flight  conditions: 


C  =  2.44  ft 
R  =  39.5  ft 
b  *  7 

h  =  1000  ft 
W  =  70,000  lbs 


fi  =  179  RPM  -*■  18.743  rads/sec 
V  =  140  kts 
f  =  63.57  ft2 

C,  =  .009 
d0 

D. A.  =  1000  ft 


Keystrokes : 

Display: 

[XEQ]  [ALPHA]  FORFLT  [ALPHA] 

FOR  V=? 

140  [R/S] 

F.P.A. (FF)=? 

63.57  [R/S] 

REC? 

1  [R/S] 

C=? 

2.44  [R/S] 

R=? 

39.5  [R/S] 

b=? 

7  [R/S] 

a 

n* 

o 

ii 

.009  [R/S] 

RV=? 

18.743  [R/S] 

H=? 

1000  [R/S] 

W=? 

70,000  [R/S] 

D.A.—? 

1000  [R/S] 

PI  = 

[R/S] 

1662.62 

[R/S] 

P I ( TL ) = 

[R/S] 

16  99.10 

[R/S] 

GE=0 

,  t 

L 
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[R/S  ] 
[R/SI 
[R/S] 
[R/S] 
[R/S] 
[R/S] 
[R/S] 

0  [R/S] 


P0= 

1852.87 

PP= 

1763.38 
PT  (MR)  = 
5315.35 
CHANGE? 
0.00 


Now,  execute  program  "CHECKS"  in  order  to  make  a  quick 
check  on  a,  y,  M— ,  and  Disc  Loading.  The  temperature  is 
13°  C 


Keystrokes : 


Display : 


[XEQ]  [ALPHA]  CHECKS  [ALPHA]  SOLID=0.1376 

[R/S]  U=0 .3194 


[R/S]  T=? 

13  [R/S]  M(TI?) =0 . 8783 

[R/S]  D .L .=14 . 2808 

It  is  important  to  note  here  that  the  blade  loading  is  above 
10  lbs/ft2.  This  generates  high  induced  velocities,  which 
in  turn  can  make  operations  in  unimproved  sites  hazardous 
due  to  flying  debris.  Also,  it  becomes  increasingly  diffi¬ 
cult  to  obtain  safe  autorotational  characteristics  at  these 
higher  disc  loadings.  [Ref.  7] 

The  tip  Mach  Number  is  above  0.85.  This  means  that  the  ad¬ 
vancing  rotor  blade  is  entering  the  transonic  flow  region 
and  shock  wave  formation  will  lead  to  wave  drag. 
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Blade  stall  effects  on  the  retreating  rotor  blade  have 
started  prior  to  this.  Therefore  the  actual  horsepower  re¬ 
quired  in  forward  flight  will  be  somewhat  higher  due  to  the 
effects  of  compressibility  and  blade  stall.  [Ref.  3] 

5.  PROGRAMS  &  SUBROUTINES  USED 
"CHECKS" 


6 .  PROGRAM  LISTINGS 


PROGRAM 
0 1 ♦LBL  "CHE 


CK3 ' 

02 

FIX  4 

03 

RCL  19 

04 

"SOLID 

05 

RRCL  X 

06 

OVIEW 

07 

STOP 

08 

RCL  25 

09 

RCL  13 

10 

s' 

1  1 

••  lj=  - 

12 

PRCL  X 

13 

RVIEW 

14 

STOP 

15 

RCL  25 

16 

RCL  13 

17 

+ 

13 

-  T  =  ?  '' 

19 

PROMPT 

20  2  73.  16 

21  + 

22  .5555 

23 

24  2400.324 

25  * 

26  SORT 

27  ' 

23  ” M <  T I P  >  = 

29  RRCL  X 

30  OVIEW 

31  STOP 

32  RCL  10 

33  RCL  12 

34  •••- 

35  ■'  D  .  L  .  =  " 

36  fl  R  C  L  X 

37  RVIEW 
33  END 


\ 

i 
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